CD Actual 36

home *** CD-ROM | disk | FTP | other *** search

/ CD Actual 36 / PC Actual CD 36.iso / demos / Wingest / NORMAL / SETUP1.CAB / CONVER2.APP (.txt) < prev next >

Wrap

MS Visual FoxPro App | 1997-03-29 | 580.0 KB | 12,618 lines

SCREEN CONVERT pProgCallb Se han pasado par metros err neos al convertidor. Para convertir archivos, bralos desde el men Archivo. 03.00.00.0424 Debe utilizar FoxPro versi 03.00.00.0424 o posteriormente para ejecutar Converter. transprt No se puede encontrar el programa transportador. Se cancel la conversi MasterConvert gOMasterb Ha habido un problema al iniciar Converter. Ha habido un problema al iniciar Converter. PFILENAME PFILETYPE PVERSION PPROGCALL GTRANSPORT GRETURNVAL GERROR GASHOWME GOPJX GOMASTER GOTHERM GICALLINGPROG LHADERROR DOCONVERT, Se cancel la conversi n a petici n del usuario. m.err = .T. Error fatal en Converter: C Error: mero de error: todo: digo que produce el error: Archivo que se est procesando: No se ha grabado DEFAvC Error DEFAvC Error El disco est lleno y el convertidor no puede continuar. No se puede salvar el archivo de registro. glogb THIS.formRefb THIS.projcallb Ocurri un error en Converter y no puede continuar. El error se ha registrado en Desea abrir el archivo de registro? RETURN TO &cCallingProg ERRORNUM METHOD CERRMSG THIS LLOCALERR LHADLOCERR CCURRENTFILE LHADERROR CLOGFILE DEBUG FORMREF CLEANUP PROJCALL GOPJX GOTHERM GERROR GICALLINGPROG CCALLINGPROGK CFILENAME CACTION GLOGQ Empezar la conversi CFILENAME DTSTARTTIME WRITELOG Fin de la conversi 01/01/95 12:00 La conversi n correcta dur segundos. CFILENAME THIS DTENDTIME WRITELOG DTSTARTTIME CFILE SAVEAREA THIS LLOCALERR LHADLOCERR _temppct CSCXFILE APLATFORMS READABLE ISDBF _TEMPPCT DISTINCT PLATFORM WINDOWS WINDOWS IPLATFORM m.pFilenameb m.pFiletypeb Microsoft Visual FoxPro Converter Utility Version 5.00e (07/15/96)C- -- DEBUGGING ON foreign conprocs MACHINE SprTherm CvtAlert PFILENAME PFILETYPE PVERSION THIS LUSERCALL ACONVPARMS LHADERROR NCURRENTWORKAREA OLDDATA SPRTHERM CVTALERT NNEWWORKAREAY ON ESCAPE &cOld SET ESCAPE &cOld SET COMPATIBLE &cOld SET EXCLUSIVE &cOld SPRTHERMC CLASSLIBv SPRTHERM CVTALERTC CLASSLIBv CVTALERT FOREIGNC PROCEDUREv foreign CONPROCSC PROCEDUREv conprocs SET TRBETWEEN &cOld SET FULLPATH &cOld SET UDFPARMS TO &cOld SET DEVELOPMENT &cOld SET DEBUG &cOld SET EXACT &cOld SET KEYCOMP TO &cOld SET CPDIALOG &cOld SET PATH TO &cOld SET LIBRARY TO &cOld ON ERROR &cOld OLDSAFE OLDNOTIFY OLDMESS OLDTALK OLDMEMOWID OLDONESCAPE OLDESCAPE OLDCOMPAT OLDEXCLUS OLDBLOCK OLDCOLLATE SPRTHERM CVTALERT OLDDEFAULT FOREIGN CONPROCS OLDTRBE OLDFULLPATH OLDUDFPARM OLDDEVO OLDDEBUG OLDEXACT OLDKEYCOMP OLDCPDIALOG OLDPOINT OLDSEP OLDPATH OLDLIBR OLDERROR OLDDATA NCURRENTWORKAREA SCREEN cvtdlog30scx Seleccione el archivo o directorio que desee actualizar. thermometer Convirtiendo la pantalla CCC SCREEN cvtalert30scx Desea convertir la pantalla CC al formato de Visual FoxPro 5.0? thermometer Convirtiendo la pantalla CCC oConvObjectb SCREEN WINDOWS cvtalertscx Desea convertir la pantalla CC al formato de Visual FoxPro 5.0? thermometer Convirtiendo la pantalla CCC oConvObjectb Convirtiendo pantallas... PROJECT CATALOG (y todos los formularios e informes dentro de l) al formato de Visual FoxPro 5.0? PROJECT project cvtalertpjx3 al formato de Visual FoxPro 5.0? PROJECT project cvtalertpjx CATALOG catalog cvtalertpjx CATALOG DBASE catalog cvtalertcat Desea convertir therm2 Convirtiendo el proyecto CCC oConvObjectb Convirtiendo el proyecto... REPORT thermometer Convirtiendo la pantalla CCC oConvObjectb Convirtiendo otros archivos... LABEL DB4QUERY DB4FORM DB4REPORT DB4LABEL FORMAT thermometer Convirtiendo el archivo de formato CCC oConvObjectb FB+FRX G_PLATFORMS APARMS OCONVOBJECT CCONVTYPE ACONVPARMS IFILEDIR CFILE LRECURSE GETOPTS GOTHERM PARTIALFNAME UPDATE UPDATESCX SCX30CONVERTERCLASS LHADERROR GRETURNVAL CONVERTER APLATFORMS GETPLATFORMCOUNT KPLAT SCXCONVERTERCLASS JUSTSTEM JUSTEXT LHANDLED THECLASS CFILETYPE LMAKEBACKDIR COBJNAME CCVTMSG CFILENAME PJXCONVERTERCLASS FPCCONVERTERCLASS DB4CATCONVERTERCLASS PFILENAME FRXCONVERTERCLASS LCONVERTED CFRX2FILES FMTCONVERTERCLASS0 oAlert.chkBothPlatb oAlert.chkSet30Defb OBJNAME OALERT CBACKDIR CLOGFILE CCODEFILE LDEVMODE LBACKUP NOPTDEV IPLATFORMCOUNT IBOTHPLAT ADDBS JUSTPATH ACONVPARMS CHKBOTHPLAT ENABLED CHKSET30DEF SHOWN Microsoft Visual FoxPro Converter Utility Version 5.00e (07/15/96) WZPDATE WZPTIME PSTRING BackColor BackStyle BorderWidth FontBold m.fp25fldb ForeColor BackColor FillColor DisabledForeColor DisabledBackColor ItemForeColor ItemBackColor DisabledItemForeColor DisabledItemBackColor SelectedItemBackColor BorderColor Picture FontName ControlSource Alias Order ChildAlias ChildOrder ParentAlias RelationalExpr InitialSelectedAlias WindowList CursorSource Caption Value Caption m.fp25fldb m.fp25fldb m.fp25fldb m.fp30parentb ADVERTENCIA La expresi n en el registro n es demasiado larga CCCOZ oForm.cCurrentFileb ADVERTENCIA La expresi n en el registro n es demasiado larga CCCOZ La expresi n no se ha encontrado. Ver los detalles en el archivo de registro. ADVERTENCIA La expresi n en el registro n es demasiado larga CCCOZ La expresi n no se ha encontrado. Ver los detalles en el archivo de registro. FP30PROP FP25FLD FP30PARENT THIS ISDEFAULT ADDQUOTES WRITELOG OFORM CCURRENTFILE FP3PROPK m.cValueb m.cValueb BackColor BackStyle BorderWidth FontBold CPROP CVALUE FP3PROP SYS(16C SYS(16 _SYS(16 sys(16 _sys(16 Sys(16 _Sys(16 RETURN #REGI temp4a---a #REGI temp4aa ReadValid Valid ErrorMessage Message ReadActivate ReadDeactivate ReadShow ReadWhen ERROR ReadShow Valid PROCEDURE ENDPROC NEWMETHOD FP25FLD CTYPE NEWPROP SAVEAREA GENDIR NEWMETHOD2 GENDIRCOUNT ADDPROP _FOX3SPR TEMP1 TEMP4 CLEANWHITE FINDARRY MEMOFIND NLINE C25ALIAS EXTRACTPROCS SPRMEMO TEMP3 IFUNC IPROC FP3METHOD temp4a- temp4aa DECLC temp4a- temp4aa DIMEC NSIO NSION NARRYCT CARRYNAME NARRYLEN IPLACE CTEMP MEMOFIND TEMP1 A_DIMESy Archivo ` no se pudo abrir. No se ha convertido. No se puede abrir El archivo ya est abierto. Archivo ` es de s lo lectura. No se ha convertido. es de s lo lectura. No se ha convertido. El formato de archivo no es v lido. Archivo no se pudo abrir. No se ha convertido. Archivo ` no se encuentra. No se ha convertido. Archivo no se encuentra. No se ha convertido. CFILE CTHISALIAS READABLE WRITELOG JUSTFNAME LHADERROR PREADONLY ISDBFR label textbox editbox shape commandgroup commandgroup commandgroup image optionbutton optiongroup checkbox combobox spinner oleboundcontrol listbox dataenvironment cursor relation formset pageframe CCLASSTYPEI No se invalid la funci n del convertidor llamada! existe. Desea sobrescribir? CFILENAME NRESULT JUSTFNAME CTMPFILE FORCEEXT IBUFFER CTMPPJXNAME ADDBS JUSTPATH PJXNAME TIMESTAMP OUTFILE HOMEDIR EXCLUDE MAINPROG SAVECODE DEBUG ENCRYPT NOLOGO CMNTSTYLE OBJREV DEVINFO SYMBOLS OBJECT CKVAL OSTYPE OSCREATOR COMMENTS RESERVED1 RESERVED2 SCCDATA LOCAL NEW30ALIAS JUSTFNAME NTIMESTAMP LSAVECODE LDEBUG LENCRYPT CDEVINFO P30TO40 LDEVMODE NEW30ALIAS NAME TIMESTAMP EXCLUDE MAINPROG CSTUBFILE NTIMESTAMP LEXCLUDE LISMAIN JUSTSTEM COUTFILE userb *- fin del registro PJX25ALIAS NEW30ALIAS CLOGFILE PATHv cFName = ALLTRIM(IIF(AT(CHR(0),&cField) > 0,LEFT(&cField,AT(CHR(0),&cField)-1),&cField)) Archivo C no se encuentra. No se ha convertido. cvtLocate No se encontr el archivo C Desea encontrarlo? Buscar archivo: Archivo C no se encuentra. No se ha convertido. REPLACE &cField WITH m.cTmpFname SET PATH TO &cNewPath SET PATH TO &cOldPath Haciendo copia de seguridad de los archivos del proyecto... SELECT &cField, type FROM DBF(THIS.pjx25Alias) WHERE type $ m.cType AND !DELETED() INTO ARRAY tmparr CCCCC No se pudo encontrar el archivo indicado en C . No se ha hecho copia de seguridad. Algunos archivos faltan o no se pudieron encontrar. No se convertir Desea continuar? CFIELD CTYPE CDESC CBACKNAME CTMPFNAME CTMPFNAMEOLD LNOFINDS SAVEAREA CCURDIR COLDPATH CNEWPATH CTHISPATH CFNAME PJX25ALIAS CBACKDIR JUSTFNAME CCURRENTFILE LBACKUP FORCEEXT CMEMOEXT CHOMEDIR WRITELOG OLOCATE SHOW LLOCALERR JUSTEXT LHADERROR JUSTPATH GOTHERM UPDATE2 TMPARR GOMASTER# PATHv CLASS Compilando. Imposible compilar el archivo. Consulte el archivo .ERR para ver detalles y compile manualmente. Imposible compilar el archivo C . Consulte el archivo .ERR para ver detalles y compile manualmente. CFILE LIS30FILE CPATH CERRFILE WRITELOG NEW30ALIAS JUSTPATH PJXNAME CHOMEDIR READABLE ISDBF LLOCALERR ADDBS JUSTSTEM LHADLOCERRE Compilando. CFILE NEW30ALIAS CHOMEDIR READABLE ISDBF OBJTYPE PLATFORM COMPILEFRX WRITELOG DATABASEv OBJECTNAME Compilando. SET DATABASE TO &cOldDataBase CFILE LIS30FILE LOPENSHARED COLDDATABASE WRITELOG NEW30ALIAS CHOMEDIR READABLE ISDBF JUSTSTEM DO EscHandler Registro de conversi n para Convertidor: Microsoft Visual FoxPro Converter Utility Version 5.00e (07/15/96) Ha seleccionado un archivo de proyecto no v lido. s|R|B|V|K project _FOX3PJX _FOX3PJX Convirtiendo pantallas... APARMS TMPARR CTMPPJXNAME SETID GOPJX AMASTERPARMS NTIMESTAMP TSTAMP PJXNAME CBACKDIR LDEVMODE CCODEFILE CLOGFILE LBACKUP IPLATFORMCOUNT CCURRENTFILE CMEMOEXT WRITELOG ADDBS JUSTPATH FORCEEXT PJX25ALIAS OPENFILE LHADERROR GOTHERM VISIBLE LSET30DEFAULTS CONV20PJX LDEBUG DEBUG LENCRYPT ENCRYPT CDEVINFO DEVINFO HIGHSCXID CHOMEDIR NSCREENSETS NSCREENCTR BACKFILES GOMASTER CLEANUP _FOX3PJX SPRMEMO UPDATE2 EXACTv transdlg LBT66 CCCCC SET EXACT &cOldExact CPJXNAME CBACKNAME CTMPFNAME NTABLES COLDEXACT TRANSDLG PJX25ALIAS TMPARR NEW30ALIAS CHOMEDIR JUSTEXT JUSTFNAME FORCEEXT LBACKUP CBACKDIR PJXNAME WINDOWS oFormb El archivo ya se ha convertido . Se cre un archivo SPR. Convirtiendo otros archivos... CCCCC Archivo C no se encuentra. No se ha convertido. Archivo C no se encuentra. No se ha convertido. oFormb .name .name .mainprog .type .timestamp .homedir .exclude CCCCC Archivo no se encuentra. No se ha convertido. oFormb El archivo ya se ha convertido .name .mainprog .type .timestamp .homedir .exclude .name Ese archivo ya forma parte de este proyecto. No se convirti ni agreg al proyecto. .name .mainprog .type .timestamp .homedir .exclude No es necesaria la conversi .name .name .mainprog .type .timestamp .homedir .exclude No es necesaria la conversi OFORM CSAVEAREA IWHICHPLAT CEXT1 CEXT2 APLATFORMS PJX25ALIAS NRECCOUNT NTMPCOUNT PREFORM CREATEPJX HIGHSCXID LISMAIN GETNEXTFSET COUTFILE EXTPROJ APARMS IPLATFORMCOUNT GETPLATFORMCOUNT A_S3FILES GETPLATFORM SCXCONVERTERCLASS LHADERROR C25ALIAS LCONVERTED CONVERTER SETID TYPE CSTUBFILE OUTFILE CHOMEDIR ISDIR JUSTPATH ADDBS JUSTFNAME WRITELOG A_S2FILES FORCEEXT INSERTSCX NSCREENCTR GOTHERM UPDATE2 LSET30DEFAULTS JUSTEXT LBACKUP CBACKDIR SCX30CONVERTERCLASS OCONVFORM NEW30ALIAS MAINPROG TIMESTAMP HOMEDIR EXCLUDE JUSTSTEM P30TO40 CFRXEXT CFRTEXT F2FILES F3FILES FRXCONVERTERCLASS TSTAMP COMPILEALLSCX COMPILEALLFRX COMPILEALLDBC CLOSEPJX COMPLETE2 GOPJX CCURRENTFILE .Comments .Comments .User .User NEW30ALIAS PJX25ALIAS COMMENTS LNOADDSPR CFILENAME COUTFILE NEW30ALIAS NAME TIMESTAMP EXCLUDE NTIMESTAMP LEXCLUDE JUSTFNAME IPLATFORMCOUNT APARMS JUSTSTEM JUSTEXT PJXCONVERTERBASE INSERTSCXm Transportando el proyecto CC UDFPv SET UDFP TO &oldudfp Convirtiendo el proyecto... Convirtiendo el proyecto CC OLDUDFP GOTHERM SETTITLE2 PARTIALFNAME CCURRENTFILE GTRANSPORT PJXNAME GASHOWME PJX25ALIAS OPENFILE LHADERRORQ _FOX3PJX CTMPFNAME CCURRENTFILE CHOMEDIR CBACKNAME CBACKDIR JUSTFNAME LDEVMODE _FOX3PJX SPRMEMO CCODEFILE NEW30ALIAS MAINPROG TYPE TIMESTAMP HOMEDIR EXCLUDE NTIMESTAMP JUSTSTEM CLOSEFILES PJXNAME FORCEEXT CMEMOEXT ADDBS JUSTPATHH CCCCC Archivo C no se encuentra. No se ha convertido. PSETID TMPARR CURSCXID PJX25ALIAS ARRANGED EXCLUDE SETID SCRNORDER COUTFILE A_S2FILES A_S3FILES LEXCLUDE CHOMEDIR JUSTFNAME LBACKUP CBACKDIR FORCEEXT WRITELOG CSTUBFILE OUTFILE ISDIR JUSTPATH ADDBS LISMAIN MAINPROG A_PJXSETS OPENFILES CLOSEFILES DEFWINDS RELWINDS ASSOCWINDS MODAL NOLOGO READCYCLE NOLOCK MULTREADS GOTHERM UPDATE2 NSCREENCTR NSCREENSETS DO EscHandler Registro de conversi n para Convertidor: Microsoft Visual FoxPro Converter Utility Version 5.00e (07/15/96) FOX_FILE Ha seleccionado un archivo de cat logo no v lido. Convirtiendo el cat logo... scx|frx|lbx catalog Convirtiendo el cat logo... APARMS TMPARR GOPJX ISPROJ NTIMESTAMP TSTAMP PJXNAME PJXVERSION CBACKDIR LDEVMODE CCODEFILE CLOGFILE LBACKUP IPLATFORMCOUNT CCURRENTFILE CMEMOEXT WRITELOG CTMPPJXNAME ADDBS JUSTPATH FORCEEXT PJX25ALIAS OPENFILE LHADERROR NSCREENSETS CURSCXID GOTHERM UPDATE2 VISIBLE CHOMEDIR BACKFILES GOMASTER CLEANUP& .path Convertido.C Convirtiendo pantallas... SCREEN WINDOWS oConvObjectb No se ha convertido. El archivo ya se ha convertido . Se cre un archivo SPR. Convirtiendo otros archivos... REPORT oFormb El archivo ya se ha convertido .File_name .type .path .Title .path .path .type x666666 .Title No es necesaria la conversi OFORM CTMPFILE G_PLATFORMS APARMS OCONVOBJECT IWHICHPLAT APLATFORMS PJX25ALIAS PREFORM CREATEPJX WRITELOG CURSCXID NSCREENSETS GOTHERM UPDATE2 PJXVERSION LDEVMODE CCODEFILE CLOGFILE IPLATFORMCOUNT CSTUBFILE FORCEEXT COUTFILE GETPLATFORMCOUNT GETPLATFORM SCXCONVERTERCLASS LHADERROR LCONVERTED CONVERTER C25ALIAS ENDLOG INSERTSCX F3FILES F2FILES LBACKUP CBACKDIR JUSTFNAME FRXCONVERTERCLASS NEW30ALIAS MAINPROG TIMESTAMP HOMEDIR EXCLUDE COMMENTS NTIMESTAMP JUSTPATH JUSTSTEM CTYPE COMPILEALLSCX COMPILEALLFRX CLOSEPJX COMPLETE2 GOPJX CFULL30PJXNAME .Title .Title CFILENAME COUTFILE NEW30ALIAS NAME TIMESTAMP EXCLUDE COMMENTS NTIMESTAMP LEXCLUDE JUSTSTEM IPLATFORMCOUNT APARMS JUSTEXT PJXCONVERTERBASE INSERTSCX LBT66 CCCCC PJX25ALIAS FILE_NAME TMPARR NTABLES CTMPFNAME JUSTEXT JUSTFNAME FORCEEXT LBACKUP CHOMEDIR CBACKDIR PJXNAME CTMPFNAME CCURRENTFILE CHOMEDIR CLOSEFILES CFULL30PJXNAME FORCEEXT PJXNAME CMEMOEXT LBACKUP ADDBS JUSTPATH NEW30ALIAS WINDOWS Convirtiendo la pantalla CC (Versi n Macintosh) Archivo ` es de s lo lectura. No se ha convertido. PLATFORM OBJTYPE CLASS El archivo de pantalla no tiene un formato conocido.` No se ha convertido. _FOX3SPR _FOX3SPR PROCEDURE *---------------------------------------------- digo de *---------------------------------------------- _FOX3PJX APARMS LBACKUP LPROJCALL LFORCETRANSPORTDLOG LNOCOMPILE IMAXTHISTIME IMAXOTHERTIME THIS OCONVFORM PROJCALL LTRANSDLOG LDEVMODE CCODEFILE CLOGFILE IPLATFORMCOUNT IWHICHPLAT SAVEDPLAT A_PJXSETS GOPJX LMULTIREADS LAUTOCLOSE CBACKDIR A_SCX2FILES A_S2FILES A_SCX3FILES A_S3FILES CSTUBFILE CNEWSCX CCURRENTFILE LUSERCALL ADDBS JUSTPATH FORCEEXT JUSTEXT GOTHERM SETTITLE PARTIALFNAME UPDATE VISIBLE PLATFORM GETPLATFORM WRITELOG BEGINLOG NTIMESTAMP TSTAMP SCXCOUNT A_SCX2ALIAS KNOWNFILE ERASEBACKUP PREADONLY JUSTFNAME OPENFILE C25ALIAS CONV20SCX LHADERROR TIMESTAMP SET30DEFAULTS LCONVERTED _FOX3SPR SPRMEMO TEMP1 TEMP2 TEMP3 TEMP4 DEFINES _FOX3PJXL Convirtiendo la pantalla CC CLASS formset Screen FONTINFO formset (Versi n Macintosh) CFORMSET THIS NRECCOUNT SCANPLAT PLATFORM IPLATFORMCOUNT NTMPCOUNT GOTHERM SETTITLE PARTIALFNAME CCURRENTFILE UPDATE PREFORM CREATESCX NEW30ALIAS A_SCX3ALIAS C25ALIAS ENVIRON OBJTYPE A_PLAT ADDSRECS CTMPNAME CFORMNAME LINDIRECTWINNAME CINDIRECTWINNAME ADDFSET SCXCOUNT LMULTIREADS A_SCX2ALIAS FORMNUM CLASS OBJNAME CBACKDIR A_SCX2FILES UNIQUEID PARENT CFORMSETNAME LHADERROR ADDPROCS1 WRITEFONTSUB PROJCALL COLDOUTFILE GOPJX COUTFILE A_SCX3FILES INSERTSCX ADDPARM ADDGENPROCS UPDMETHODS POSTFORM CLOSEFILES IWHICHPLAT COMPLETE OCONVFORM ENDLOG CNEWSCX FORCEEXT A_SCX2FILESh Migrando el archivo... Migrando la pantalla CC Imposible migrar el archivo. El archivo de pantalla no tiene un formato conocido. No se ha convertido. Imposible migrar el archivo. No se ha convertido. Transportando la pantalla CC CFILENAME OTHIS CNEWSCXNAME READABLE ISDBF GOTHERM SETTITLE PARTIALFNAME CCURRENTFILE MIGDB4 WRITELOG JUSTFNAME LHADERROR FORCEEXT A_SCX2FILES UPDATE LOLDSCXSHOW GASHOWME GTRANSPORT COMMENT VERSION = 3.00 CSCXNAME TMPALIAS SCXCOUNT A_SCX3FILES A_SCX3ALIAS PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE OLE2 RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 USER CHEADERID LMULTIREADS Transportando la pantalla CCC UDFPv MESSAGE SET UDFP TO &oldudfp PLATFORM SCXTYPE OLDUDFP COLDMESS A_SCX2ALIAS GOTHERM SETTITLE PARTIALFNAME A_SCX2FILES GTRANSPORT GASHOWME LTRANSDLOG OPENFILE C25ALIAS PLATFORM LHADERROR setupcode *- [CONVERTER] Instrucci n Parameter generada por ConverterC *- [CONVERTER] Pasar estos valores al nuevo formulario PARAMETERS LOCAL _aParm, _cparmstr, _nctr DIMENSION _aParm[ _aParm[ ] = [ _cparmstr = [] IF PARAMETERS() > 0 _cparmstr = [WITH ] _cparmstr = _cparmstr + _aParm[1] FOR m._nctr = 2 TO PARAMETERS() _cparmstr = _cparmstr + [,] + _aParm[m._nctr] ENDIF *- [CONVERTER] Declarar matricesC EXTERNAL ARRAY *- [CONVERTER] _rval almacenar el valor devueltoC LOCAL _rval *- [CONVERTER] Declarar variables para punteros de registroC PUBLIC EXTERNAL PROC C DO FORM " " NAME LINKED _cparmstr NOREAD TO m._rvalC RETURN m._rval IF _macC EXTERNAL PROC DO FORM " " NAME LINKED _cparmstr NOREAD TO m._rvalC RETURN m._rval ENDIF EXTERNAL PROC C DO FORM " " NAME LINKED NOREAD TO m._rvalC RETURN m._rval IF _macC EXTERNAL PROC DO FORM " " NAME LINKED NOREAD TO m._rvalC RETURN m._rval ENDIF CSCXNAME NPARMCOUNT CPARMCONT CPARMCODE CPARMA ATEMP CTMPTEXT CITEM NARRYLEN CPUBLIST CDOFORM OBJTYPE CPARMS GETPARAM _FOX3SPR SPRMEMO A_DIMES A_DIMES2 GETARRAY STRIPPAREN CARRAYS CNEWSCX SCXCOUNT A_SCX3FILES LHASRETURN LHASDATANAVOBJ A_PJXSETS A_TABLES CCURSVAR MAKEVAR JUSTFNAME IPLATFORMCOUNT NOREADPLAINEXPR NOREADEXPR JUSTSTEM JUSTEXT LMULTIREADS* FONTINFO FONTINFO SAVEAREA TEMPFILE CTEMP LMULTIREADS SCXCOUNT A_SCX3ALIAS NDNORECNO NDNOCOUNT RESERVED2 METHODS LHASIDX _FOX3SPR CLASS NFORMREC1 NFORMREC2 LHASINVIS UNIQUEID ADDBS JUSTPATH A_SCX3FILES FORCEEXT _FOX3SPR *- [CONVERTER] C *- [CONVERTER] Archivo de encabezado para *- [CONVERTER] Nuevo archivo INCLUDE, con #DEFINEsC #INCLUDE *----- digo vario _FOX3PJX _FOX3PJX CHFILE CTMPFILE NEW30ALIAS _FOX3SPR DEFINES FORCEEXT CSTUBFILE JUSTFNAME CCURRENTFILE RESERVED8 SPRMEMO LDEVMODE CODE CCODEFILE PROJCALL _FOX3PJX A_SCX2ALIAS A_SCX3ALIAS LUSERCALL PLATFORM IPLATFORMCOUNT ADDBS JUSTPATH A_SCX3FILES JUSTSTEM LHADERROR LBACKUP ERASEBACKUP A_SCX2FILES IWHICHPLAT LNOCOMPILE THIS LUSERCALL A_SCX3FILES FORCEEXT LBACKUP A_SCX2FILES OCONVFORM Configuraciones predeterminadas de la versi n 3.0... checkbox combobox commandbutton editbox header label listbox spinner textbox pageframe formset FontBold FontSize checkbox combobox commandbutton editbox label listbox spinner shape textbox pageframe ColorSource commandgroup optiongroup pageframe .name = pageframe FontBold FontSize ColorSource .name = ColorSource LLUPDATED CPROP CLINE CTEXT IRECC CLASSLOC GOTHERM UPDATE PROPERTIES BASECLASS ADD40PROPERTY COBJECT: name = name = LCPROPERTY LCVALUE LCOBJECT LUSELF CPROP LLUPDATED FONTSTR A_SCX2FLD FONTSUBN COMMENT NEW30ALIAS PLATFORM UNIQUEID PROPERTIES FONTSUBn formset WindowTypeCC WindowTypeCC ReadCycleC ReadLockC WindowListC CLASS ReleaseWindowsC formset formset *----- formset formset formset formset NODEFINE *----- formset formset NODEFINE GETPLAT TMPSTR TMPCNT LREADCLAUSE CURPLAT IFORMSETCTR CFORMSETNAME GETVARPREFIX GOODNAME JUSTSTEM CCURRENTFILE A_READS NOBJCOUNT FP3PROP FP3METHOD LDEVMODE ADDPROP A_PJXSETS GETBORDER SCXCOUNT A_SCX2ALIAS PLATFORM OBJTYPE ADDREADS LMULTIREADS READ_EXPR READCLAUSE WRITEREADS A_SCX3ALIAS UNIQUEID TIMESTAMP CLASS BASECLASS OBJNAME PROPERTIES SAVEDPLAT NTIMESTAMP _FOX3SPR METHODS NFSETRECNO NEW30ALIAS RESERVED4 PARENTNAME C25ALIAS2 NOMOUSE ReadNoMousea ReadSavea ReadTimeoutCC OBJECT OBJECT ReadObjectCC COLORSCHEME COLORSCHEME ColorScheme TMPSTR TMPCNT THIS READ_EXPR ADDPROP WORDNUM ReadWhenC ReadValidC ReadActivateC ReadDeactivateC ReadWhenC ReadValidC ReadActivateC ReadDeactivateC NOREADEXPR ADDMETHODS A_READS NOREADPLAINEXPR CPROCS setupcode SYS(16C SYS(16 _SYS(16 sys(16 _sys(16 Sys(16 _Sys(16 temp4a- temp4aa ENDIF #ITSE temp4a- WCLAUSE WNAME #WNAME temp4a- NOREAD PLAIN NOREAD No se puede procesar una expresi n de macro en la directiva del generador. *- [CONVERTER] No se puede procesar una macro en la directiva del generadorC temp4aa temp1 temp1 temp1 PROCCODE SYS(16C SYS(16 _SYS(16 sys(16 _sys(16 Sys(16 _Sys(16 temp4-- PARAMETERS THIS.a_reads[3] = IIF(THIS.lDevMode,"","*- [CONVERTER] Restaurar el entorno" + CHR(13) + [IF TYPE("rborder") == 'C'] + CHR(13)+CHR(10) + CHR(9) + [SET READBORDER &rborder] + CHR(13)+CHR(10) + [ENDIF] + CHR(13)+CHR(10) + CHR(13)+CHR(10) + [IF TYPE("talkstat") == 'C'] + CHR(13)+CHR(10) + CHR(9) + [IF m.talkstat = "ON"] + CHR(13)+CHR(10) + CHR(9) + CHR(9) + [SET TALK ON] + CHR(13)+CHR(10) + CHR(9) + [ENDIF] + CHR(13)+CHR(10) + [ENDIF] + CHR(13)+CHR(10) + CHR(13)+CHR(10) + [IF TYPE("compstat") == 'C'] + CHR(13)+CHR(10) + CHR(9) + [IF m.compstat = "ON"] + CHR(13)+CHR(10) + CHR(9) + CHR(9) + [SET COMPATIBLE ON] + CHR(13)+CHR(10) + CHR(9) + [ENDIF] + CHR(13)+CHR(10) + [ENDIF] + CHR(13)+CHR(10) + CHR(13)+CHR(10) ) SCRN_NUM PART1 PART2 PART2LINE PART2CHR SECT1 SECT2 SECT1LINE SECT2LINE PARMLINE SECT1CHR SECT2CHR SECT2START GENDIR GENDIRCOUNT SAVEAREA CTEMPTXT NGENDIR CDEFINE CREPLACESTR CGENACTION CPARMLINE NLINE CPARMS GETPARAM _FOX3SPR TEMP1 SETUPCODE TEMP4 CLEANWHITE LHASSYS16 MEMOFIND DEFINES ITSE_EXPR READ_EXPR WCLAUSE_EXPR CWNAMEEXPR A_PJXSETS NOREADPLAINEXPR NOREADEXPR WRITELOG CCURRENTFILE GETFIRSTLINE PROCCODE NMAXRETU LHASRETURN A_READS MERGEMETHODS LMULTIREADS WHENTYPE VALID VALIDTYPE SHOWTYPE ACTIVATE ACTIVTYPE DEACTIVATE DEACTTYPE RETURN temp1 #INSE temp4a---a m.insfileb m.insfileb *- No se pudo encontrar el archivo de directiva #INSERT *- No se pudo encontrar el archivo de directiva #INSERT temp2 *- Inicio de la directiva #INSERT - *- Fin de la directiva #INSERT #INSE temp1 #INSE temp4 MERGECODE FP30FLD CODETYPE INSFILE SAVEAREA _FOX3SPR TEMP1 TEMP4 CLEANWHITE THIS GETDEFINE FINDARRY MEMOFIND ADDBS JUSTPATH CCURRENTFILE JUSTFNAME TEMP2 MEMOSTUFF IF ('#' $ &cMemoFld) m.gendir = ALLT(STRTRAN(MLINE(&cMemoFld,m.ngendir),CHR(9),' ')) #DEFI m.gendir = MLINE(&cMemoFld,m.ngendir + m.nCtr) cTmp = MLINE(&cMemoFld,m.nLine - 1) REPLACE (cMemoFld) WITH STUFF(&cMemoFld,_MLINE + IIF(m.nLine <= 1,0,1),0,'*') CMEMOFLD GENDIRCOUNT NGENDIR CDEFINE GENDIR NLINE MEMOFIND _FOX3SPR DEFINESA CLASS WINDOWS CLASS WINDOWS CPLATONLY TMPARR TMP2ARR TMPCNT TOTRECS SCXCOUNT A_SCX2ALIAS OBJTYPE PLATFORM C25ALIAS DISTINCT G_PLATFORMS A_PLAT ISMULTIPLAT# PROCCODE SAVEREC PART2LINE PART2 PART2CHR OBJTYPE PLATFORM A_PLAT GETFIRSTLINE PROCCODE CPROCSy *- [CONVERTER] Principio de CLEANUP y otros procedimientos de formulario de la versi n 2.x *- [CONVERTER] Fin de CLEANUP y otros procedimientos del formulario de la versi n 2.x *- [CONVERTER] Principio de procedimientos VALID/WHEN del formulario de 2.x *- [CONVERTER] Fin de los procedimientos VALID/WHEN de formulario de la versi n 2.x *- [CONVERTER] Sustituci n de SYS(16) para dar cabida al c digo en la nueva posici PROCEDURE _Sys PARAMETERS nCode, nDepth IF PARAMETERS() = 1 RETURN IIF(LEFT(SYS(16),9) == "PROCEDURE" AND OCCURS(" ",SYS(16)) >= 2,SUBS(SYS(16),AT(" ",SYS(16),2) + 1),SYS(16)) RETURN SYS(16,nDepth) ENDIF *- [CONVERTER] Fin de la sustituci n de SYS(16) SAVEREC PART2LINE PART2 PART2CHR CPROCS _FOX3SPR SPRMEMO TEMP3 LHASSYS16' WINDOWS oRecb PLATNUM CRECTYPE OREC A_SCX2FLD NOLDSIZE PLATFORM A_PLAT OBJTYPE ADDFONTSUB ADDSCXOBJ MAPIT ADDREC GOTHERM UPDATE NTMPCOUNT NRECCOUNT LHADERROR CLOSEFILES A_DIMES dataenvironment *- [CONVERTER] Abrir el archivo de ndice .IDX de tipo antiguo especificado en el entorno de pantallaC SELECT SET INDEX TO relation label shape listbox commandgroup commandgroup optiongroup checkbox textbox textbox editbox combobox BITMAPC image oleboundcontrol commandgroup commandgroup spinner NOBJTYPE CTRLTYPE TMPOBJ OBJCLASS OFORM OBJCLASSM THIS OCONVFORM FORMCLASS DATANAVCLASS LHASIDX _FOX3SPR LOAD A_SCX2FLD DATANAVRELATIONCLASS LABELCLASS LINECLASS SHAPECLASS LISTCLASS BTNCLASS BTNGCLASS RADIOCLASS CBOXCLASS OBJCODE SAYCLASS GETCLASS EDITCLASS POPUPCLASS STYLE NAME PICTCLASS OLECLASS INVCLASS INVGCLASS SPINCLASS- LoadCCC *- [CONVERTER] Recordar el entornoC PRIVATE m.compstat, m.currarea, m.rborder, m.talkstat IF SET("TALK") = "ON" SET TALK OFF m.talkstat = "ON" m.talkstat = "OFF" ENDIF m.compstat = SET("COMPATIBLE") SET COMPATIBLE FOXPLUS m.rborder = SET("READBORDER") SET READBORDER ON m.currarea = SELECT() *- [CONVERTER] Abrir tablas para que haya campos disponiblesC THIS.DataEnvironment.OpenTables *- [CONVERTER] Restablecer punteros de registro LOCAL aTbl, iLen, i, iRec, cVar, iPrev iPrev = SELECT() DIMENSION aTbl[1,2] iLen = AUSED(aTbl) FOR i = 1 TO iLen cVar = '_iconv' + PROPER(aTbl[i,1]) + 'GoToPlaceHolder' IF TYPE(cVar) # 'N' iRec = -2 iRec = EVAL(cVar) ENDIF IF USED(aTbl[i,1]) SELECT (aTbl[i,1]) DO CASE CASE BETWEEN(iRec, 1, RECCOUNT()) GOTO iRec CASE iRec = 0 GO TOP SKIP IIF(!BOF(),-1,0) CASE iRec = -1 GO BOTTOM SKIP IIF(!EOF(),1,0) OTHERWISE GO TOP ENDCASE ENDIF IF iPrev > 0 IF USED(iPrev) SELECT (iPrev) ENDIF ENDIF RELEASE aTbl, iLen, i, iRec, cVar, iPrev *- [CONVERTER] Recordar punteros de registroC IF USED(" SELECT = IIF(BOF(), 0, IIF(EOF(), -1, RECNO())) ENDIF UnloadC *- SAYs de 2.6 que hay que actualizar ReadShowC *----- CGOTO CCURSVAR A_SCX3ALIAS NFSETRECNO NOREADPLAINEXPR ADDMETHODS A_READS LDEVMODE LHASDATANAVOBJ A_PJXSETS CSETSKIP CDEFINEWIN A_TABLES MAKEVAR CREADSHOW CLEANPROC _FOX3SPR CFORMSETNAME FP3METHOD METHODS4 _iconvCC GoToPlaceHolder CNAME temp4a- temp4aa CSNIPPET GENDIRCOUNT SAVEAREA NLINE _FOX3SPR TEMP1 TEMP4 CLEANWHITE GENDIR MEMOFIND Convirtiendo la pantalla CC Archivo ` es de s lo lectura. No se ha convertido. CLASS El archivo de pantalla no tiene un formato conocido.` No se ha convertido. APARMS LBACKUP LPROJCALL LFORCETRANSPORTDLOG LNOCOMPILE CEXT1 CEXT2 CBACKEXT1 CBACKEXT2 PROJCALL LSET30DEFAULTS IPLATFORMCOUNT CBACKDIR GOPJX A_SCX2FILES A_S2FILES A_SCX3FILES A_S3FILES CNEWSCX CCURRENTFILE LUSERCALL ADDBS JUSTPATH JUSTEXT FORCEEXT GOTHERM SETTITLE PARTIALFNAME UPDATE VISIBLE WRITELOG BEGINLOG KNOWNFILE OCONVFORM ERASEBACKUP PREADONLY JUSTFNAME A_SCX2ALIAS OPENFILE C25ALIAS ColorSource = 3 ColorSource = 5 ColorSource = 3 ColorSource = 0 PROPERTIES BASECLASS LSET30DEFAULTS SET30DEFAULTS CLOSEFILES LCONVERTED4 Imposible compilar el archivo. Consulte el archivo .ERR para ver detalles y compile manualmente. Imposible compilar el archivo C . Consulte el archivo .ERR para ver detalles y compile manualmente. CHFILE CTMPFILE CEXT1 CEXT2 CBACKEXT1 CBACKEXT2 CERRFILE JUSTEXT A_SCX2FILES A_SCX2ALIAS A_SCX3ALIAS LUSERCALL LHADERROR A_SCX3FILES FORCEEXT LNOCOMPILE LLOCALERR IPLATFORMCOUNT PLATFORM ADDBS JUSTPATH JUSTSTEM LHADLOCERR WRITELOG CNEWSCX Convirtiendo el informe CC Archivo ` es de s lo lectura. No se ha convertido. LBL|LBX Migrando el archivo... Migrando el informe CC Imposible migrar el archivo. El archivo de informe o de etiqueta no tiene un formato conocido. No se ha convertido. Transportando el informe CC PLATFORM OBJTYPE OBJTYPE El archivo de informe o de etiqueta no tiene un formato conocido. _FOX3SPR _FOX3SPR APARMS LBACKUP LPROJCALL LFORCETRANSPORTDLOG LNOCOMPILE CNEWFRXNAME OTHIS CNEWEXT1 CNEWEXT2 COLDEXT1 COLDEXT2 THIS OCONVFORM PROJCALL LTRANSDLOG CLOGFILE LAUTOOPEN LAUTOCLOSE CBACKDIR GOPJX CFRX2FILES F2FILES CFRX3FILES F3FILES CNEWFRX CCURRENTFILE JUSTEXT LUSERCALL ADDBS JUSTPATH FORCEEXT GOTHERM SETTITLE PARTIALFNAME UPDATE VISIBLE WRITELOG BEGINLOG PLATFORM GETPLATFORM NTIMESTAMP TSTAMP PREADONLY JUSTFNAME LHADERROR READABLE ISDBF MIGDB4 LOLDFRXSHOW GASHOWME GTRANSPORT C25ALIAS OPENFILE ERASEBACKUP CONV20FRX TIMESTAMP IMAXTHISTIME IMAXOTHERTIME LNEEDSDE CFRX3ALIAS OBJTYPE ENVIRON LCONVERTED _FOX3SPR Convirtiendo el informe CC dataenvironment relation SELECT C SET INDEX TO oRecb PROCEDURE Destroy *- [CONVERTER] Restablecer tablas para compatibilidad THIS.OpenTables THIS.Init PROCEDURE InitC OFORM A_SCX2FLD NRECCOUNT NCURREC TEMPFILE GOTHERM SETTITLE PARTIALFNAME CCURRENTFILE UPDATE PREFORM CREATEFRX NEW30ALIAS CFRX3ALIAS ENVIRON LNEEDSDE OCONVFORM OBJTYPE NTMPCOUNT DATANAVCLASS FP3OBJTYPE DATANAVRELATIONCLASS _FOX3SPR LHASIDX MAPIT ADDREC LHADERROR CLOSEFILES CSETSKIP NDNORECNO LNOCOMPILE COMPILEFRX ADDBS JUSTPATH CFRX3FILES PLATFORM FORCEEXT JUSTEXT FLOAT STRETCH POSTFORM COMPLETE ENDLOG CFRX2FILES _FOX3SPR CNEWEXT1 CNEWEXT2 COLDEXT1 COLDEXT2 JUSTEXT CFRX2FILES _FOX3SPR C25ALIAS CFRX3ALIAS CFRX3FILES LUSERCALL LHADERROR FORCEEXT LBACKUP userb C25ALIAS CFRX3FILES FORCEEXT CFRX3ALIAS Transportando el informe CC UDFPv MESSAGE SET UDFP TO &oldudfp PLATFORM FRXTYPE OLDUDFP COLDMESS C25ALIAS GOTHERM SETTITLE PARTIALFNAME CCURRENTFILE GTRANSPORT CFRX2FILES GASHOWME LTRANSDLOG OPENFILE PLATFORM LHADERRORJ UNIQUEID TIMESTAMP NTIMESTAMP PLATFORMS THIS LUSERCALL CFRX3FILES FORCEEXT JUSTEXT LBACKUP CFRX2FILES OCONVFORMo FORCEEXT CFRX2FILES PARM1 PARM2 FP3CLASS FP3BASE FORMREF FP25OT A_SCX2FLD FP25OC FP3PROP FP3METHODS PREMAP ADDBASIC ADDFONT ADDPOS ADDCOLOR ADDMAIN POSTMAP WRITENAME BMPFPATH NOMODIFY FONT STYLE COLOR SIZE CPICTSTR SPCLOC TMPSTR TMPCNT TMPWORD TMPLOC TMPPRESTR FORMREF ITSE_EXPR A_SCX2FLD HASITSE WORDNUM PICWORD3 PICWORD1 ADDQUOTES PICWORD2 *----- FORMREF LDEVMODE NEW30ALIAS PLATFORM UNIQUEID TIMESTAMP CLASS BASECLASS OBJNAME PARENT PROPERTIES USER RESERVED2 FP3SAVEPLAT FP3ID FP3TIME FP3CLASS FP3BASE FP3NAME FP3PARENT FP3PROP FP3COMMENT FP3RESERVED2 FP3METHOD _FOX3SPR METHODSz FP3PLAT A_SCX2FLD FP3TIME FORMREF NTIMESTAMP FP3COMMENT FP3PARENT PARENTNAME FP3ID LHASINVIS CADDNAME FP3NAME ADDPROP FP3NAME4 WINDOWS FontName FontSize FontBoldC FontItalica FontUnderlinea FontOutlinea FontShadowa FontCondensea FontExtenda NBTN A_SCX2FLD FP3FONT FP3FSIZE FP3FSTYLE GETSTYLE FP3FONT1 FP3FONT5 FP3FONT6 NDEFFONT1 FORMREF NDEFFONT5 NDEFFONT6 ADDPROP LeftC WidthC HeightC ADDPROP A_SCX2FLD NDEFFONT1 NDEFFONT5 FP3FUDGE NDEFFONT6 FP3FONT6 FP3FONT1 FP3FONT5 ColorSource ForeColorCCC BackColorCCC FillColorCCC DisabledBackColorCCC ADDPROP ICOLORSOURCE A_SCX2FLD BIUOSCE IFNTSTYLE CFONTSTYLE CSTYLECODES ,()[] NEWOBJ CNAME A_SCX2FLD JUSTSTEM STRIPQUOTE FORMREF NOBJCOUNT GETVARPREFIX FormatC Format InputMaskC InputMask PICWORD1 HASITSE ADDPROP ADDQUOTES PICWORD2 SpecialEffect SpecialEffect A_SCX2FLD PICWORD1 ADDPROP} BackStyle BackStyleC LCONVERT NMODE NFILLPAT ADDPROP ,'T','F') ALLTRIM(STR( DTOS( PSTRING# FP25OBJ ADDBASIC FP3ID' WhenCC ValidCC MessageC ErrorMessageC SYS(16C ReleaseErase- ControlSourceCC ADDNAME GETNEWNAME FP3CLASS ADDMODE A_SCX2FLD FORMREF NOREADPLAINEXPR ADDMETHODS CLEANPROC LHASSYS16 FP3METHOD GETPICPART ADDPROP ADDCTRL ADDFX" EnabledC ADDPROP A_SCX2FLD LeftC WidthC HeightC WidthC HeightC Option BorderStyle ButtonCount EnabledC Style EnabledC PictureC Caption Style Enabled- EnabledC Defaulta Cancela CaptionC Option Value Height Width TerminateReada TerminateRead- ReleaseErase- BTNNAME INVISBTN OPTBTN CAPNAME HSPC LHASPICTS TOTBTNS UNITWID UNITHGT ST_LEFT ST_TOP LISHORIZ A_SCX2FLD PICWORD1 ADDPROP NDEFFONT1 NDEFFONT5 NDEFFONT6 FP3FONT6 FP3FONT1 FP3FONT5 ADDMODE FP3NAME PICWORD2 ADDFONT ADDCOLOR ADDFX FULLBMP ADDQUOTES IVALUE PictureC Caption CaptionC TerminateReada TerminateRead- PICWORD1 ADDPROP FULLBMP PICWORD2 ADDQUOTES Value CTEMPSTR CFILLCHAR CINITVAL A_SCX2FLD FILLCHAR ADDPROP RowSourceCC RangeLowC FirstElement RangeHighC NumberOfElements RowSourceType Value RowSourceType Value RowSourceType Value RowSourceType Value RowSourceType Value TerminateReada TerminateRead- EnabledC ADDPROP ADDQUOTES A_SCX2FLD ADDMETHODS PICWORD1 LeftC WidthC HeightC FP3FUDGE ADDPROP A_SCX2FLD NDEFFONT1 NDEFFONT5 NDEFFONT6 FP3FONT6 FP3FONT1 FP3FONT5R ColorSource ItemForeColorCCC ItemBackColorCCC DisabledItemBackColorCCC ADDPROP A_SCX2FLD, EnabledC ADDBTN ADDPROP A_SCX2FLD EnabledC Style Style ValueC ADDBTN ADDPROP A_SCX2FLD PICWORD1 Command ADDGROUP0 ColorSource ADDPROP Commanda Value ADDGROUP ADDPROPD EnabledC Style ADDBTN ADDPROP A_SCX2FLD Alignment Alignment Alignment Alignment FP25CTRL ADDMAIN PICWORD1 ADDPROP A_SCX2FLD PICWORD3 EnabledC Margin RangeLowC RangeHighC BorderStyleC THIS ADDFORMAT ADDVALUE ADDPROP A_SCX2FLD ADDMETHODS FORMREF GETBORDER PICWORD3 LeftC WidthC HeightC ADDPROP A_SCX2FLD NDEFFONT1 NDEFFONT5 NDEFFONT6 FP3FONT6 FP3FONT1 FP3FONT5 Alignment Alignment Alignment Alignment FP25CTRL ADDMAIN PICWORD1 ADDPROP A_SCX2FLD PICWORD30 Margin THIS ADDFORMAT ADDVALUE ADDPROP LeftC WidthC HeightC ADDPROP A_SCX2FLD NDEFFONT1 NDEFFONT5 NDEFFONT6 FP3FONT6 FP3FONT1 FP3FONT5 ScrollBars EnabledC AllowTabsC NOMO NOMO NOMO & NOMO ReadOnlya FP25TEXT ADDCTRL A_SCX2FLD ADDPROP FP3METHOD PICWORD3 Style ReadOnlya TabStop- BorderStyle FP25TEXT ADDCTRL ADDPROP NEWOBJ CNAME STRIPQUOTE A_SCX2FLD GETVARPREFIX GOODNAME FORMREF NOBJCOUNTH ColorSource DisabledForeColorCCC ForeColorCCC BackColorCCC ADDPROP A_SCX2FLD Value THISFORMSET.C THISFORMSET.C .Value = CEXPR CPARENT A_SCX2FLD CONV2STR ADDPROP FORMREF LINDIRECTWINNAME CINDIRECTWINNAME FP3PARENT CREADSHOW FP3NAME Value CTEMPVAL CINITVAL CTEMP2 A_SCX2FLD FP25OC ADDPROP IVALUE Option-a FP25OPTION ADDMAIN ADDGROUPi Enableda ValueC ADDPROP PICWORD1 A_SCX2FLD IVALUE| BackStyle LCONVERT NMODE NFILLPAT A_SCX2FLD ADDPROP FP25OPTION ADDMODE Style EnabledC FirstElementC RowSourceC RowSourceType RangeLowC FirstElement RangeHighC NumberOfElements RowSourceType RowSourceCC CLISTSOURCE ADDPROP A_SCX2FLD FP25OC PICWORD2 ADDQUOTES ADDMETHODS ADDVALUE\ EnabledC Margin Alignment SpinnerLowValueC SpinnerHighValueC RangeLowC KeyboardLowValue RangeHighC KeyboardHighValue THIS ADDFORMAT ADDVALUE ADDPROP A_SCX2FLD ADDMETHODS LeftC 333333 WidthC HeightC ADDPROP A_SCX2FLD NDEFFONT1 NDEFFONT5 NDEFFONT6 FP3FONT6 FP3FONT1 FP3FONT5 1.000 Increment Value Value Value CINITVAL A_SCX2FLD FORCEDEC ADDPROP INITIALVAL FP25CTRL ADDVALUE CaptionC CaptionCC CaptionC CaptionCC " + CHR(13) + " ColorSource Alignment Alignment Alignment ReleaseErase- ADDNAME GETNEWNAME FP3CLASS GETPICPART A_SCX2FLD FP25OT ADDPROP CONV2STR PICWORD2 ADDFORMAT ADDMODE PICWORD1 PICWORD3 NEWOBJ CNAME STRIPQUOTE A_SCX2FLD GETVARPREFIX GOODNAME FORMREF NOBJCOUNT$ FP25OBJ ADDBASIC FP3ID SpecialEffect SpecialEffect A_SCX2FLD ADDPROPD FillStyle BackStyle CurvatureC BorderWidthCC BorderStyle BorderStyle BorderStyle BorderStyle BorderStyle ReleaseErase- NFILLPAT ADDNAME GETNEWNAME FP3CLASS ADDFX FP25OT A_SCX2FLD ADDPROP ADDMODE LeftC Width HeightC Height WidthC HeightC WidthC ADDPROP A_SCX2FLD FORMREF NDEFFONT1 NDEFFONT5 NDEFFONT6 FP25OTr ColorSource BorderColorCCC FillColorCCC BackColor 255,255,255 DisabledForeColorCCC LCOLORSOURCE ADDPROP A_SCX2FLD ColorSource BorderColorCCC BackColorCCC ADDPROP A_SCX2FLD$ FP25OBJ ADDBASIC FP3ID8 PictureCCC BITMAPCC Picture Picture ReleaseErase- ADDNAME GETNEWNAME FP3CLASS A_SCX2FLD ADDPROP FULLBMP ADDMODE StretchC LeftC HeightC WidthC ADDPROP A_SCX2FLD FORMREF NDEFFONT1 NDEFFONT5 NDEFFONT6 ColorSource ADDPROP ReleaseErase- ControlSourceCC ADDNAME GETNEWNAME FP3CLASS ADDMODE A_SCX2FLD ADDPROP ADDCTRLR Enabled- Sizable- AutoActivate ADDPROP4 PARM1 PARM2 FP25OBJ ICOLORSOURCE$ FP25OBJ ADDBASIC FP3ID WZ_WIN CaptionCC CaptionC Caption PictureCCC IconCC BorderStyleCC BottomCaptionCC BottomCaptionC ShadowC IN DESKTOP Desktopa IN WINDOW WINDOW Window IN SCREEN Windowa SizableC GROW ZOOM MDIChildC MaxButton ZoomBox MovableC ClosableC MinButtonC ControlBox- HalfHeightCaptionC COLORSCHEME COLORSCHEME ColorScheme InitC THIS.Name = LoadC Activate SELECT TMPSTR TMPCNT CTMPNAME LZOOM FORMREF CWNAMEEXPR A_SCX2FLD CWINNAME GETNEWNAME FP3CLASS CFORMNAME CWINNAMES ADDNAME ITSE_EXPR ADDPROP FULLBMP STRIPQUOTE GETWBORDER WCLAUSE_EXPR WORDNUM LINDIRECTWINNAME ADDMETHODS CINDIRECTWINNAME A_READS CMAINCURS FORMREF PARENTNAME CFORMSETNAMEW WINDOWS 255,255,255 FORMREF PARENTNAME FP3NAME A_SCX2FLD NDEFFONT1 FP3FONT1 NDEFFONT5 FP3FONT5 NDEFFONT6 FP3FONT6 CDEFCOLOR ADDPROP LDEVMODE ADDREC ADDPAGE pageframe pageframe PageFrame1 Height Width PageCount BorderWidth Tabs- ErasePage- DrawFrame- PageFrame1 Page1 BackStyle Page1 Page1 PageFrame1 Page1 FP3CLASS FP3BASE FP3PROP FP3METHOD ADDBASIC FP3COMMENT A_SCX2FLD FP3PARENT FORMREF PARENTNAME FP3NAME ADDPROP ADDQUOTES WidthC HeightC screen screen screen screen screen screen LeftC AutoCenter ARRANGE LARRFLAG LCENTFLAG THIS NDEFFONT1 FP3FONT1 NDEFFONT5 FP3FONT5 NDEFFONT6 FP3FONT6 ADDPROP A_SCX2FLD FORMREF A_SCX2FILES FORMNUM GETARRANGE8 NODEFINE *----- NODEFINE FORMREF LDEVMODE NEW30ALIAS PLATFORM UNIQUEID TIMESTAMP CLASS BASECLASS OBJNAME PARENT PROPERTIES USER RESERVED1 RESERVED4 RESERVED6 FP3SAVEPLAT FP3ID FP3TIME FP3CLASS FP3BASE FP3NAME FP3PARENT FP3PROP FP3COMMENT FP3RESERVED1 A_PJXSETS FP3RESERVED6 FP3METHOD _FOX3SPR METHODS WSTYLE NEWOBJ! DataEnvironment cursor cursor PARM1 PARM2 FP25OBJ COLDPARENTNAME FORMREF PARENTNAME LHASDATANAVOBJ FP3COMMENT FP3OBJTYPE MAPIT ADDREC NDNORECNO NEW30ALIAS CLEARPROP FP3CLASS FP3BASE" FP25OBJ ADDBASIC FP3IDR PREMAP ADDBASIC ADDMAIN POSTMAP WRITENAME FORMREF NDNOCOUNT# AutoOpenTables AutoCloseTables InitialSelectedAlias AliasC CursorSourceCC OrderC NLEN CSAVEAREA NCURREC FORMREF LHASDATANAVOBJ ADDNAME FP3CLASS GETNEWNAME ADDPROP LAUTOOPEN LAUTOCLOSE SAVEAREA C25ALIAS OBJTYPE PLATFORM CMAINCURS UNIQUE A_SCX2FLD FULLBMP A_TABLES A_TORDERB NEWOBJ FORMREF NOBJCOUNT FORMREF PARENTNAME COLDPARENTNAME FP3PLAT GETPLATFORM FORMREF NEW30ALIAS PLATFORM UNIQUEID TIMESTAMP OBJTYPE ENVIRON FP3ID FP3TIME FP3OBJTYPE FP3CLASS FP3PROP\ DataEnvironment PARM1 PARM2 FP25OBJ COLDPARENTNAME FORMREF PARENTNAME ParentAliasC RelationalExprC ChildAliasC EXACTv ChildOrderC SET EXACT &loldexact *- [CONVERTER] Establecer SET SKIP TO SELECT SET SKIP TO NPOS LOLDEXACT SAVEAREA NWORKAREA FORMREF LHASDATANAVOBJ ADDNAME FP3CLASS GETNEWNAME ADDPROP A_SCX2FLD A_TABLES A_TORDER C25ALIAS OBJTYPE OBJCODE PLATFORM ENVIRON CSETSKIP FP3PLAT GETPLATFORM FORMREF NEW30ALIAS PLATFORM UNIQUEID TIMESTAMP OBJTYPE ENVIRON FP3ID FP3TIME FP3OBJTYPE FP3CLASS FP3PROP Error WriteLogy BeginLog EndLog_ IsDBFa GetPlatformCountG GetPlatform Cleanup& Init- Destroy DoConvertp GetOpts GetVersion PreForm20 PostForm90 TStamp@0 AddQuotesL1 AddProp IsDefaultO9 ClearProp AddMethods FindArryLB OpenFileuH GetVarPrefixLL Converter ok2nuke CompileFRX CreatePJX InsertSCXfU CloseFiles BackFiles CompileAllScx CompileAllFrx CompileAllDBCOh Destroy Cleanup ConverterE{ p30to40G ExtProj InsertSCX Conv20PJXO ClosePJX? GetNextFset Converter InsertSCX Cleanup ClosePJX@ Converter EraseBackup KnownFilex CreateSCX Conv20SCX AddParm^ PostFormy CloseFiles Cleanup Set30Defaults Add40Property AddFontSub WriteFontSub AddFSet? ReadClause WriteReads AddReads MergeMethodsh3 GetDefine ScanPlat AddProcs1 AddGenProcss@ AddSRecsHE AddSCXObj/H UpdMethods?P MakeVar_\ CleanProc ConverterZg CloseFiles Converterd} CloseFiles CreateFRX Conv20FRX PostForm Cleanup EraseBackup: MapIt AddMain_ PreMapf PostMapm FullBMPt GetPicPart AddRec AddBasicu AddName` WriteName AddFont AddPos AddColor GetStyle~ GetNewName} AddFormatY AddFX AddModeI Conv2Str AddBasic AddMain AddCtrl AddGroup, AddBtn AddValue AddCtrl AddPos AddColor AddCtrlo AddCtrl AddPos WriteName AddCtrl AddColor AddPos WriteName AddCtrl! AddCtrlq AddMain AddCtrl0 AddPosr AddMain| AddCtrl AddPos) AddCtrl3 AddValue{ AddCtrl GetNewName$ AddColorf AddValue AddValue= AddPos WriteName AddMain AddCtrl AddMode AddCtrl_ AddCtrlm AddPos AddValue AddMain1 GetNewNameK AddBasic AddFX AddMain AddFont< AddPosC AddColor% AddColor AddBasic AddMain) AddPos AddFont AddColor AddMain AddCtrl InitP AddBasic AddMain Premap Postmap WriteName AddPage AddPos AddRec GetWBorder GetNewName3 InitU AddBasic. MapItt AddMain GetNewName Destroy AddRec AddMain AddRec 01/01/95 12:00 01/01/95 12:00 LHADERROR CLOGFILE LDEVMODE CCODEFILE LLOCALERR LHADLOCERR LSHOWN1994 CCURRENTFILE DTSTARTTIME DTENDTIMEa SCXSingleScreenConverter SCX30Converter PJXConverter FRXConverter FPCConverter DB4ScrConverter DB4FrmConverter DB4LblConverter DB4CatConverter DB4QbeConverter FmtConverter TALKv SAFETYv ESCAPEv ESCAPE NOTIFYv MESSAGE MEMOWIDTHv CLASSv DEFAvC PROCv COMPATIBLEv EXCLUSIVEv COLLATEv BLOCKv TRBEv FULLPATHv UDFPv DEVEv DEBUGv ERROR EXACTv KEYCOMPv CPDIALOGv POINTv SEPARATORv PATHv LIBRARYv SCXCONVERTERCLASS SCX30CONVERTERCLASS PJXCONVERTERCLASS MNXCONVERTERCLASS FRXCONVERTERCLASS FPCCONVERTERCLASS DB4SCRCONVERTERCLASS DB4FRMCONVERTERCLASS DB4LBLCONVERTERCLASS DB4CATCONVERTERCLASS DB4QBECONVERTERCLASS FMTCONVERTERCLASS OLDTALK OLDSAFE OLDNOTIFY OLDMESS OLDMEMOWID OLDCLASS OLDPROC OLDDATA OLDCOMPAT OLDCOLLATE OLDBLOCK OLDTRBE OLDFULLPATH OLDUDFPARM OLDONESCAPE OLDDEVO OLDDEBUG OLDERROR OLDEXACT OLDDEFAULT OLDKEYCOMP OLDCPDIALOG OLDPOINT OLDSEP OLDPATH OLDLIBR OLDESCAPE OLDEXCLUS NCURRENTWORKAREA NNEWWORKAREA LUSERCALL CBACKDIR LHANDLED ACONVPARMS NTIMESTAMP OLD25FILE C25ALIAS CNEW30FILE NEW30ALIAS PLATONLY OLDFILETYPE OLDFILEVER PLATFORM CSETSKIP LAUTOOPEN LAUTOCLOSE LTRANSDLOG A_DIMES NDEFFONT1 NDEFFONT5 NDEFFONT6 CDEFCOLOR NRECCOUNT NTMPCOUNT LBACKUP IPLATFORMCOUNT SCXSingleScreenConverter SCX30Converter FRXConverter SCXCONVERTERCLASS SCX30CONVERTERCLASS FRXCONVERTERCLASS CURSCXID HIGHSCXID ISPROJ CHOMEDIR CBACKDIR COUTFILE CSTUBFILE PJXNAME PJX25ALIAS PJXVERSION LISMAIN LENCRYPT LSAVECODE CDEVINFO LDEBUG LEXCLUDE NSCREENSETS NSCREENCTR CFULL30PJXNAME F2FILES F3FILES CMEMOEXT A_PJXSETS PLATFORM WINOBJ AMASTERPARMS A_S2FILES A_S3FILES A_SCX LSET30DEFAULTS5 fp25form fp25lbl fp25say fp25line fp25shape fp25edit fp25get fp25spin fp25cbox fp25list fp25popup fp25pict fp25radio fp25btngrp fp25btngrp fp25invgrp fp25invgrp fp25ole fpdatanav fpdatanavRelation Screen FORMCLASS LABELCLASS SAYCLASS LINECLASS SHAPECLASS EDITCLASS GETCLASS SPINCLASS CBOXCLASS LISTCLASS POPUPCLASS PICTCLASS RADIOCLASS BTNCLASS BTNGCLASS INVCLASS INVGCLASS OLECLASS DATANAVCLASS DATANAVRELATIONCLASS SPECIALFX OCONVFORM NOBJCOUNT CSTUBFILE SCXCOUNT TIMESTAMP CNEWSCX ISMULTIPLAT CURPLAT SAVEDPLAT PLATFORM PARENTNAME CPARMS FORMNUM FP3PROP FP3METHOD GETBORDER ITSE_EXPR READ_EXPR WCLAUSE_EXPR CWNAMEEXPR NOREADEXPR NOREADPLAINEXPR FONTSUB LMULTIREADS CBACKDIR LUSERCALL PROJCALL LHASDATANAVOBJ LINDIRECTWINNAME CINDIRECTWINNAME CFORMNAME NDNOCOUNT NDNORECNO LCONVERTED CREADSHOW NFSETRECNO NFORMRECNO CHEADERID CDEFINEWIN LHASINVIS CPROCS LHASIDX CMAINCURS CWINNAMES IFORMSETCTR CFORMSETNAME LHASSYS16 LHASRETURN LNOCOMPILE IPLATFORMCOUNT IWHICHPLAT A_PLAT A_READS A_SCX2FILES A_SCX2ALIAS A_SCX3FILES A_SCX3ALIAS A_PJXSETS A_TABLES A_TORDER, LSET30DEFAULTS fpFRXdatanav fpFRXDataNavRelation DATANAVCLASS DATANAVRELATIONCLASS OCONVFORM NOBJCOUNT FP3PROP NDNOCOUNT NDNORECNO LCONVERTED LBACKUP LHASDATANAVOBJ PROJCALL PARENTNAME LHASINVIS LHASIDX LUSERCALL CBACKDIR CNEWFRX CMAINCURS LNOCOMPILE LNEEDSDE CFRX2FILES CFRX3FILES CFRX3ALIAS A_SCX3FILES A_PJXSETS FORMNUM A_TABLES A_TORDERI WINDOWS FP3PLAT FP3SAVEPLAT FP3ID FP3TIME FP3COMMENT FP3CLASS FP3BASE FP3NAME FP3PROP FP3METHOD FP3PARENT FP3RESERVED1 FP3RESERVED2 FP3RESERVED6 FP3FONT FP3FSIZE FP3FSTYLE FP3FONT1 FP3FONT5 FP3FONT6 FP3FUDGE FP25OT FP25OC FORMREF PICWORD1 PICWORD2 PICWORD3 HASITSE ICOLORSOURCE? IVALUE5 CWINNAMEY COLDPARENTNAME FP3OBJTYPE CALIAS custom' MasterConvert ConverterBase Cvte& PJXConverterBase ConverterBase PJXConverter PJXConverterBase FPCConverter PJXConverterBase SCXSingleScreenConverter ConverterBaseV- SCX30Converter SCXSingleScreenConverterI7 FRXConverter ConverterBase fp25obj ConverterBase fp25ctrl fp25obj5> fp25list fp25ctrlx> fp25btn fp25ctrl fp25cbox fp25ctrl fp25btngrp fp25ctrl fp25invgrp fp25ctrl fp25invbtn fp25ctrl fp25get fp25ctrl$? fp25text fp25ctrlI? fp25edit fp25textn? fp25say fp25text fp25option fp25ctrl fp25radio fp25option fp25popup fp25option fp25spin fp25ctrl(@ fp25lbl fp25objM@ fp25shape fp25objh@ fp25line fp25shape fp25pict fp25obj fp25ole fp25pict fp25form fp25obj fpdatanav fp25obj fpFRXdatanav fpdatanav fpDataNavRelation fpdatanav&B fpFRXDataNavRelation fpDataNavRelationVB AVLINE APARMS G_PLATFORMS WZAQFILT WZAQGRP WZAQDD WZAPARMS fxsettype GASHOWME@ unique newfile CNEW25FILE PLATFORM UNIQUEID TIMESTAMP OBJTYPE OBJCODE HEIGHT WIDTH STYLE PICTURE ORDER COMMENT ENVIRON BOXCHAR FILLCHAR PENRED PENGREEN PENBLUE FILLRED FILLGREEN FILLBLUE PENSIZE PENPAT FILLPAT FONTFACE FONTSTYLE FONTSIZE RULER RULERLINES GRIDV GRIDH SCHEME SCHEME2 COLORPAIR LOTYPE RANGELO HITYPE RANGEHI WHENTYPE WHEN VALIDTYPE VALID ERRORTYPE ERROR MESSTYPE MESSAGE SHOWTYPE SHOW ACTIVTYPE ACTIVATE DEACTTYPE DEACTIVATE PROCTYPE PROCCODE SETUPTYPE SETUPCODE FLOAT CLOSE MINIMIZE BORDER SHADOW CENTER REFRESH DISABLED SCROLLBAR ADDALIAS INITIALVAL INITIALNUM SPACING CURPOS NEWFILE DO EscHandler Registro de conversi n para Convertidor: Microsoft Visual FoxPro Converter Utility Version 5.00e (07/15/96) No se puede abrir Cambiando la estructura del cat logo... Haciendo copia de seguridad de los archivos del proyecto... Migrando archivos... APARMS GOPJX ISPROJ NTIMESTAMP TSTAMP PJXNAME PJXVERSION CBACKDIR LDEVMODE CCODEFILE CLOGFILE CCURRENTFILE WRITELOG PJX25ALIAS OPENFILE LHADERROR GASHOWME NSCREENSETS CURSCXID GOTHERM UPDATE2 VISIBLE CATCONV ADDBS CHOMEDIR JUSTPATH GOMASTER CLOSEFILESs CCC,Z ERRORNUM METHOD THIS LHADERROR LLOCALERR CERRSTR ERROR CTMPFILE PJX25ALIAS CONVERTDB2FP LHADERROR CLOSEFILES NEW30ALIAS FPCCONVERTER CONVERTER FPCCONVERTER CLOSEPJX FORCEEXT CFULL30PJXNAME= defaultvC Ocurri el error @1 al intentar copiar el cat logo a Error @1 al abrir Encontrar C Debido a un conflicto de nombres, el nombre del archivo de cat logo se ha cambiado a WZISELECT WZSDIRNAME WZLRETURN WZSNEWNAME WZLAUTONAME WZSTMPNAME WZSDEFAULT CTMPPATH CNEWPATH CTMPFNAMEOLD CTMPFNAME THIS LLOCALERR ADDBS PJX25ALIAS PJXNAME LHADERROR CERRSTR CPTAG FORCEEXT AUTONAME FPCNEW JUSTPATH JUSTFNAME PATH FILE_NAME ALIAS TITLE UPDPATHS JUSTEXT defaultvC QUERY REPORT LABEL OTHER6666 REPORT LABEL QUERY No se pudo encontrar el archivo indicado en catalog . No se ha hecho copia de seguridad. QUERY DO (gTransport) WITH (&wzsfpcalias..path), 12, .F., gAShowMe,m.gOTherm,(&wzsfpcalias..path) REPORT DO (gTransport) WITH (&wzsfpcalias..path), 13, .F., gAShowMe,m.gOTherm,(&wzsfpcalias..path) LABEL DO (gTransport) WITH (&wzsfpcalias..path), 14, .F., gAShowMe,m.gOTherm,(&wzsfpcalias..path) WZSDEFAULT WZSMODE CTMPPATH WZSFPCALIAS WZSFNAME NEW30ALIAS FOX_FILE JUSTPATH WRITELOG JUSTFNAME MIGRATE WZISELECT SETFOXFILE JUSTEXT CURSCXID NSCREENSETS GOTHERM UPDATE2i CATALOG Error @1 al crear Error @1 al abrir Error @1 al abrir WZSFNAME WZLLEAVEOPEN WZICODEPAGE WZSPROMPT WZISELECT PUTNAME THIS LLOCALERR PATH FILE_NAME ALIAS TITLE FOX_FILE INDEXES WIZARD NEW30ALIAS LHADERROR CERRSTR CPTAG WZNERROR FXSETTYPE ADDFPCREC) FOX_FILE WZSTYPE WZLFORCEEXT WZSSELECT NEW30ALIAS PATH FILE_NAME FORCEEXT FOX_FILE TYPE[ IF MESSAGEBOX(STRTRAN("Debe convertir su &wzsString antes de poder modificarlo en FoxPro. El @1 original permanecer sin cambios. Desea continuar con la conversi n?","@1",PROPER(m.wzstype)),4 ) = 7 Empezar la migraci n al formato de FoxPro 2.x. QUERY _FOX3SPR _FOX3SPR Imposible migrar el archivo. REPORT Imposible migrar el archivo. LABEL Imposible migrar el archivo. No se puede encontrar el archivo migrado @1. Imposible migrar el archivo. Se ha completado correctamente la migraci n al formato de FoxPro 2.x. WZSFNAME WZSTYPE WZLCONFIRM WZSNEWNAME SAVEAREA OTHIS WRITELOG _FOX3SPR TEMP1 FORCEEXT MIGDB4 No se puede abrir el archivo de origen C APARMS NFILEREADY THIS OLD25FILE CROOTNAME JUSTSTEM CPATHNAME JUSTPATH CNEW30FILE READABLE LHADERROR CLEANUP LNIXNEWSCX_ Migrando el archivo de formato CC CLEAR READC PUSH KEYC ON KEY LABEL PGUP DO dopgup ON KEY LABEL PGDN DO dopgdn ON KEY LABEL CTRL+PGUP DO ctlpgup ON KEY LABEL CTRL+PGDN DO ctlpgdn IF EOF() GO BOTTOM ENDIF mignavpr.txt VALID CCOCN CLEAR TO FILL TO BOX BOX DOUB thiswidth=LEN(&thisopt) thiswidth=LEN(STR(&thisopt)) AVLINE THIS NTMPCOUNT NRECCOUNT GOTHERM SETTITLE PARTIALFNAME OLD25FILE UPDATE CTEMPDBF LINE CTEMPNAME LTEMPOPEN CPTAG CLEANUP LHADERROR CREATE25SCX CNEW30FILE CTHISALIAS LTHISOPEN NEWFILE OBJTYPE OBJCODE STYLE HEIGHT WIDTH JUSTSTEM GRIDV GRIDH WHENTYPE VALIDTYPE SHOWTYPE ACTIVTYPE DEACTTYPE PROCTYPE SETUPTYPE FLOAT CLOSE BORDER CENTER MINIMIZE SCHEME SCHEME2 DEACTIVATE SETUPCODE PROCCODE MIGNAVPR ENVIRON ASCRTABLES GETTABLES NTABLES UNIQUE PNAME UCLINE FINISH COMPLETE GETSAY FILLCHAR CVTLINE OPTIONS THISOPT OPTNAME REFRESH PICTWIDTH THISVPOS THISHPOS THISWIDTH LDBFOPEN ANAME FLDNAME FMT_ALIAS PICTURE THISPICT VALID WHEN COLORPAIR MESSAGE RANGELO RANGEHI ERROR FIXVERT PLATFORM UNIQUEID SCRHEIGHT NMAXWIDTH NMAXHEIGHTG ASCRTABLES CTABLE NOLDLEN THIS CPATHNAME CTHISALIAS CTEMPNAME CTEMPDBF CFMTALIAS Create25SCX> InitF Error Converter ClosePJX CatConv ConvertDB2FP fpcnew addfpcrecK" SetFoxFile migrate ConverterS+ GetTables"A Cleanup FmtConverter FMTCONVERTERCLASS CERRSTR LDBFOPEN LTHISOPEN CTHISALIAS CFMTALIAS LNIXNEWSCX BARCOUNT CFMTDBF CHOOSEVAR FINISH CROOTNAME CPATHNAME CTEMPDBF CTEMPNAME LTEMPOPEN ForeignConverterBase ConverterBase DB4CatConverter FPCConverter FmtConverter ForeignConverterBaseOE m.returnmlineb m.allafterb m.occuranceb FIND_STR SEARCHFLD IGNOREWORD RETURNMLINE OCCURANCE ALLAFTER LNOSTRIP MEMODATA MEMLINE MEMLINE2 STR_DATA LASTMLINE MATCHCOUNT LINECOUNT LINECOUNT2 AT_MLINE AT_MLINE2 MLINE2 LF_POS LF_POS2 AT_POS MEMODATA2 CLEANWHITE m.insflagb m.replace_strb &searchfld=m.memodata &searchfld=m.stuff_str STUFF_STR SEARCHFLD REPLACE_STR INSFLAG INSBEFORE OCCURANCE VAR_TYPE MEMODATA MEMLINE SNPTNAME AT_POS LF_POS STR_LEN REMOVE_STR SUB_STR NLINE MEMOFINDg WINDOWS G_FIRSTPROC G_PLATLIST G_PROCS G_PROCNAMES G_TABCHR OBJTYPE ISGENPLAT PLATFORM UPDPROCARRAY PROCCODE EXTRACTPROCS! m.numlines = MEMLINES(&snipname) m.line = MLINE(&snipname, 1, _MLINE) PARAMETERS #SECT PROCEDURE FUNCTION SNIPNAME SNIPTYPE SECTNUM PROCLINENO NUMLINES WORD1 KILLCR WORDNUM MATCH W_NUM RET_STR STRT_POSB EXACTv CANDIDATE KEYWORD IN_EXACT RETLOGk IF ATC("PARA",&snipname) = 0 m.numlines = MEMLINES(&snipname) m.thisline = UPPER(LTRIM(MLINE(&snipname, 1, _MLINE))) #SECT m.thisline = UPPER(LTRIM(MLINE(&snipname, 1, _MLINE))) PARAMETERS m.contin = MLINE(&snipname, 1, _MLINE) #SECT EXTERNAL SNIPNAME THISPARAM NUMLINES THISLINE WORD1 CONTIN G_DBLAMPERSAND KILLCR ISCOMMENT WORDNUM MATCH" TEXTLINE ASTERISK ISNOTE AMPERSAND STATEMENT G_DBLAMPERSANDx PARAMETERS ISPAR MATCH WORDNUM CRCCODE THISCODE IN_REC OBJTYPE ISGENPLAT PLATFORM PROCCODE0 PLATNAME G_PLATFORMS PNAME PLATNAME LINENUM LASTMLINE PLATFORMCOL G_PROCNAMES G_PROCS GETPLATNUMh PLATNAME G_PLATLIST proccode m.sniplen = LEN(&snipname) m.numlines = MEMLINES(&snipname) m.thisline = UPPER(ALLTRIM(MLINE(&snipname,1, _MLINE))) PROCEDURE FUNCTION WINDOWS SCRNNO SNIPNAME HASCONTIN ISCONTIN SNIPLEN THISLINE WORD1 WORD2 KILLCR WORDNUM MATCH GETPROCNUM G_PROCS EMITPROC HASCONFLICT EMITBRACKET G_TABCHR G_PLATFORMS G_PLATLIST m.line = MLINE(&snipname,1, _MLINE) PROCEDURE FUNCTION DOWRITE THISLINE SNIPLEN SCRNNO SNIPNAME WORD1 WORD2 UPLINE DONE LASTMLINE ISCONTIN HASCONTIN PLATNUM G_GENVERS G_PLATFORMS GETPLATNUM WRITELINE KILLCR WORDNUM MATCH PROCEDURE PARAMETERS C DO CASEC CASE ENDCASEC SCRNNO WORD1 WORD2 UPLINE DONE LASTMLINE ISCONTIN HASCONTIN _FOX3SPR SPRMEMO G_PROCS PLATNUM G_PLATLIST G_TABCHR PUTPROC\ PROCEDURE FUNCTION PARAMETERS PLATNUM PROCNUM SCRNNO IN_REC OLDMINE UPLINE ISCONTIN HASCONTIN WORD1 WORD2 OLDMLINE PLATFORM G_PLATLIST OBJTYPE G_PROCS PROCCODE KILLCR WORDNUM MATCH WRITELINE PROCEDURE FUNCTION PARAMETERS NUMLINES UPLINE WORD1 WORD2 ISCONTIN HASCONTIN LASTMLINE THISPROC PROCCODE KILLCR WORDNUM MATCH ADDPROCNAME PLATFORM LASTPROC GETPROCNUM THISPARAM G_PROCS CLEANPARAMg PNAME G_PROCNAMES G_PROCS #DEFI #ELSE #ENDIF PLATNAME PLATNUM UPLINE SCRNNO _FOX3SPR SPRMEMO G_TABCHR G_PROCS ASTRING CURPLAT ARRANGE_FLAG CENTER_FLAG LSCXCENTER PNAME ENTRIES FILENAME DOTPOS TERMINATOR FILENAME SLASHPOS NAMELEN COLONPOSz PATHNAME SEPARATOR: FILNAME CLOCALFNAME CDIRSEP FILNAME CLOCALFNAME CDIRSEP FILNAME CLOCALFNAME CDIRSEP FILNAME JUSTFNAME= FILNAME FILNAME FILLEN BNAME ELIPSE REMAIN G_PATHSEP JUSTFNAME RETSTR JUSTPATH FILNAME PNAME JUSTPATH JUSTFNAME ADDBS WZACPCODES La tabla de c digos @1 no es v lida. El archivo @1 no existe. No se puede abrir WZSFNAME WZICODEPAGE WZIHANDLE WZACPCODES WZIDBFBYTE CPCODES CFILE NFILEREADYQ WZSALIAS pathv WZSOLDNAME WZSJUSTPATH WZSPATH WZSTNAME ADDBS JUSTPATH PATH JUSTDRIVE. No se puede abrir No se puede cerrar WZSFNAME WZITYPEBYTE WZIHANDLET TABLE QUERY DESIGN REPORT LABEL PROGRAM CATALOG WZSTYPE WZSMETHOD` \>CCC AVLINE LHSINGLE LHDOUBLE LVSINGLE LVDOUBLE NLEN NSTARTPOS NVPOS NHPOS NCURREC CCOLORPR NEWFILE CCHAR NASCVAL FILETYPE COLORPAIR OBJTYPE OBJCODE HEIGHT WIDTH NLEADSPAC NTRAILSPAC3 AVLINE NEWFILE OBJTYPE OBJCODE HEIGHT WIDTH UNIQUEID PLATFORM FILETYPE COLORPAIRI WZSALIAS RETVAL JUSTSTEM CDATA CDATATYPE CTEMPEXPR CSTRING CQUOTE CTEXT CLPAREN CRPAREN CTEXT ADIRARRY IDIRCT ADDBS Se presion ESC. Desea cancelar la conversi gOPJXb GOPJX ERRORS Ocurri un error en Converter y no puede continuar. GERROR WZSBASENAME WZSEXTENSION WZLWITHMEMO WZSPATH WZSSTEM WZIWIDTH ADDBS JUSTPATH JUSTSTEM WZSAUTONAME FORCEEXT safetyv CATALOG TABLE QUERY REPORT LABEL PROGRAM CATALOG existe. Desea sobrescribir? TABLE existe. Desea sobrescribir? existe. Desea sobrescribir? REPORT existe. Desea sobrescribir? LABEL existe. Desea sobrescribir? set safety &wzsSafety WZSFTYPE WZSMETHOD WZLDELFILE WZSSAFETY WZSFNAME WZSPROMPT WZSSTRING C_SAVETO_LOC LOCWORD FILEEXT FORCEEXT TABLE Tabla QUERY Consulta Pantalla REPORT Informe LABEL Etiqueta PROGRAM Programa CATALOG TABLE QUERY REPORT LABEL PROGRAM REPORT LABEL TABLE QUERY REPORT LABEL PROGRAM WZSTYPE WZIVARIATION C_TABLE1_LOC C_QUERY1_LOC C_FORM1_LOC C_REPORT1_LOC C_LABEL1_LOC C_PROGRAM1_LOC C_FORM2_LOC C_REPORT2_LOC C_LABEL2_LOC C_TABLE3_LOC C_QUERY3_LOC C_FORM3_LOC C_REPORT3_LOC C_LABEL3_LOC C_PROGRAM3_LOC+ CSTRING NDECIMALS CTEXT CTMP) CTEXT ALIST ITEXTLEN CCHAR NEXTITEM GETITEM~ CTEXT ILINELOC QUOTE LPARENCT ITEXTLEN CCHAR GETRPAREN CTEXT ILINELOC ITEXTLEN CCHAR RPAREN LPARENCT ENDQUOTE GETRPARENQ CFILE ADIRINFO es de s lo lectura. No se ha convertido. es un archivo oculto o de sistema. No se ha convertido. oConvObjectb CFILE LRECURSE AFILES IALEN CTARGET JUSTEXT LSCX UPDATESCX ADDBS GOMASTER ACONVPARMS JUSTPATH APARMS OCONVOBJECT SCX30CONVERTERCLASS LHADERROR GRETURNVAL CONVERTER memofind, memostuffg genproc getfirstline wordnumy killcr match getparam3 iscomment isparameterx procsmatch isgenplatG! cleanparam addprocnamex" getplatnum extractprocsO% emitproc emitbracket putproc updprocarray getprocnum cleanparam writeline hasconflictY; getarrange stripextf> strippath stripcr;@ addbs justfnameqA juststem justpath justextQE JustDrive partialfname?F forceext{H CPCodes CPTag EscHand;P ReadableFP TmpAlias UpdPaths DBTableFS FileExt CvtLine FixVertJa GoodName EvalData]d StripQuoteie StripParen f GoodName IsDir EscHandlerqh FatalErr autonamepi PutName LocWord ForceDec CleanWhite CHRTRANC GetArray GetItemrz GetRParen<| pReadOnly UpdateSCX gopjx TALKv gAShowMe[1,1]b Courier Courier Geneva Geneva MS Sans Serif MS Sans Serif Courier Foxfont ERROR DO errorhandler WITH MESSAGE(), LINENO(), "Fatal" El Transportador no se puede ejecutar como un programa aut nomo. Fatal m.g_scrndbfb El nombre de pantalla/informe no es v lido. nde est nde est nde est nde est SCX|FRX|LBX|PJX Seleccione el archivo que desea transportar Transportar Transportador de Visual FoxPro MS Sans Serif Geneva Debe convertir este archivo a un archivo .FRX antes de queC pueda usarlo. Use el Administrador de cat logos para abrir el archivo o elija Convertir archivos dBASE en el men Ejecutar. Formato de informe desconocido Fatal Converting Converting Converting Transporting Converting Converting Converting El transportador no tiene nada que hacer. El formato de archivo es desconocido o no es v Fatal G_SCRNDBF TP_FILETYPE DUMMY GASHOWME GOTHERM CREALNAME TALKSET PCOUNT GERROR ICTR G_POPHGHT G_VPOPUP G_PIXELSIZE G_BANDHEIGHT G_BANDFUDGE G_MACBANDHEIGHT G_WINBANDHEIGHT G_CHECKMARK CURSOR CONSOL EXACT ESCAPE ONESCAPE SAFETY FIXED PRINT UNQSET UDFPARMS EXCLUSIVE ONERROR TRBETWEEN DEVICE STATUS G_FROMPLATFORM CHOICE G_FROMOBJONLYALIAS G_BOXEDITEMSALIAS G_TEMPALIAS MTOPIC RBORD MCOLLATE MMACDESK FIELDS MFIELDSTO DECI MEMOWIDTH CURRAREA G_CHAR2GRPH G_GRPH2CHAR G_GRPH2GRPH G_CHAR2CHAR G_TPFILEINDX SETALL G_LOOK2D G_FILETYPE G_CTRLFFACE G_CTRLFSIZE G_CTRLFSTYLE G_WINDFFACE G_WINDFSIZE G_WINDFSTYLE G_WINBTNHEIGHT G_MACBTNHEIGHT G_MACBTNFACE G_MACBTNSIZE G_MACBTNSTYLE G_WINBTNFACE G_WINBTNSIZE G_WINBTNSTYLE G_BTNHEIGHT G_DFLTFFACE G_DFLTFSIZE G_DFLTFSTYLE G_THERMFACE G_THERMSIZE G_THERMSTYLE G_RPTFFACE G_RPTFSIZE G_RPTFSTYLE G_RPTTXTFONTSTYLE G_RPTLINESIZE G_RPTCHARSIZE SETCTRL G_TDLGFACE G_TDLGSIZE G_TDLGSTYLE G_TDLGSTY1 G_TDLGSTY2 G_TDLGBTN G_SMFACE G_SMSIZE G_SMSTYLE G_SMSTY1 G_FONTSET G_FOXFONT G_FOXFSIZE G_NORMSTYLENUM G_BOLDSTYLENUM G_TOPLATFORM G_WINDHEIGHT G_WINDWIDTH G_THERMWIDTH G_MERCURY G_20ALIAS G_STATUS G_ENERGIZE G_NOREPEAT G_ALLOBJECTS G_NEWOBJECTS G_SNIPPETS G_NEWOBJMODE G_SCRNALIAS G_UPDENVIRON G_TPSELCNT G_BOXSTRG G_RETURNCODE G_TOCODEPAGE G_FROMCODEPAGE TPARRAY G_LASTOBJECTLINE G_TEMPINDEX ERRORHANDLER G_FONTAVAIL G_FONTMAP INITFONTMAP ASSERT STRIPPATH CLEANUP PUTWINMSG SETVERSION SETTOCP GETOLDREPORTTYPE GETOLDLABELTYPE DOUPDATE CVRT102FRX CVRTFBPRPT CVRT102LBX CVRTFBPLBL OPENDBF SETFROMCP STARTTHERM CONVERTER IMPORT SYNCHTIME CONVERTTYPE MAKECURSOR VERSNUM ARRANGED OBJECT SYMBOLS DEVINFO No hay registros para transportar FNAME G_SCRNALIAS< Desea convertir el archivo de informe de la versi n 1.02 al formato 2.6? Desea convertir el archivo de informe FoxBASE+/dBASE III al formato de FoxPro 2.6? Desea convertir el archivo de etiqueta de la versi n 1.02 al formato 2.6? Desea convertir el archivo de etiqueta FoxBASE+/dBASE III al formato de FoxPro 2.6? Desea convertir el archivo de pantalla de la versi n 2.0 al formato 2.6? Desea convertir el archivo de informe de la versi n 2.0 al formato 2.6? Desea convertir el archivo de proyecto de la versi n 2.0 al formato 2.6? Operaci n de actualizaci n desconocida Fatal RESULT TP_FILETYPE G_FILETYPE STRUCTDIALOG ERRORHANDLER FoxPro para MS-DOS/UNIX WINDOWS WINDOWS WINDOWS WINDOWS WINDOWSC UNIXC El transportador no tiene nada que hacer. TWOOH PCOUNT NPLATFORMS PLATFORMS TP_FILETYPE G_FILETYPE G_SCRNDBF OBJTYPE PLATFORM BOTTOM ISERRORMSG DISTINCT G_SCRNALIAS AVAILPLATFORMS G_FROMPLATFORM CLEANUP SCXFRXDIALOG SETRPTFONT WINDOWS Versi n desconocida de FoxPro. Fatal ERRORHANDLER Versi n desconocida de FoxPro. Fatal ERRORHANDLER| Las plataformas de origen y de destino son las mismas CC NOCPTRANSv SET NOCPTRANS TO &cOldCPTrans WINDOWS WINDOWS WINDOWS WINDOWS G_FROMPLATFORM G_TOPLATFORM ASSERT G_ALLOBJECTS EMPTYPLATFORM COLDCPTRANS G_TEMPALIAS G_SCRNALIAS PLATFORM G_CHAR2GRPH G_GRPH2GRPH G_GRPH2CHAR G_CHAR2CHAR G_FILETYPE G_NOREPEAT GETCHARSUPPRESS CHARTOGRAPHIC GRAPHICTOCHAR GRAPHICTOGRAPHIC2 Transporting Transporting Transporting G_ALLOBJECTS STARTTHERM G_FILETYPE ALLGRAPHICTOCHAR SELECTOBJ G_MERCURY UPDTHERM PUTWINMSG STRIPPATH CREALNAME G_SCRNALIAS G_SNIPPETS UPDATESCREEN UPDATEREPORT G_NEWOBJECTS NEWGRAPHICTOCHAR2 Transporting Transporting Transporting G_ALLOBJECTS STARTTHERM G_FILETYPE ALLCHARTOGRAPHIC SELECTOBJ G_MERCURY UPDTHERM PUTWINMSG STRIPPATH CREALNAME G_SCRNALIAS G_SNIPPETS UPDATESCREEN UPDATEREPORT G_NEWOBJECTS NEWCHARTOGRAPHIC2 Transporting Transporting Transporting G_ALLOBJECTS STARTTHERM G_FILETYPE ALLGRPHTOGRPH SELECTOBJ G_MERCURY UPDTHERM PUTWINMSG STRIPPATH CREALNAME G_SCRNALIAS G_SNIPPETS UPDATESCREEN UPDATEREPORT G_NEWOBJECTS NEWGRPHTOGRPH IF &g_tempalias..timestamp > timestamp REPLACE name WITH &g_tempalias..name REPLACE expr WITH &g_tempalias..expr REPLACE STYLE WITH &g_tempalias..style REPLACE PICTURE WITH mapbutton(&g_tempalias..picture,PICTURE) REPLACE PICTURE WITH &g_tempalias..picture REPLACE ORDER WITH &g_tempalias..order REPLACE unique WITH &g_tempalias..unique REPLACE boxchar WITH &g_tempalias..boxchar REPLACE fillchar WITH &g_tempalias..fillchar REPLACE TAG WITH &g_tempalias..tag REPLACE tag2 WITH &g_tempalias..tag2 REPLACE ruler WITH &g_tempalias..ruler REPLACE rulerlines WITH &g_tempalias..rulerlines REPLACE grid WITH &g_tempalias..grid REPLACE gridv WITH &g_tempalias..gridv REPLACE gridh WITH &g_tempalias..gridh REPLACE FLOAT WITH &g_tempalias..float REPLACE CLOSE WITH &g_tempalias..close REPLACE MINIMIZE WITH &g_tempalias..minimize REPLACE BORDER WITH &g_tempalias..border REPLACE SHADOW WITH &g_tempalias..shadow REPLACE CENTER WITH &g_tempalias..center REPLACE REFRESH WITH &g_tempalias..refresh REPLACE disabled WITH &g_tempalias..disabled REPLACE scrollbar WITH &g_tempalias..scrollbar REPLACE addalias WITH &g_tempalias..addalias REPLACE TAB WITH &g_tempalias..tab REPLACE initialval WITH &g_tempalias..initialval REPLACE initialnum WITH &g_tempalias..initialnum REPLACE spacing WITH &g_tempalias..spacing REPLACE objcode WITH &g_tempalias..objcode REPLACE lotype WITH &g_tempalias..lotype REPLACE rangelo WITH &g_tempalias..rangelo REPLACE hitype WITH &g_tempalias..hitype REPLACE rangehi WITH &g_tempalias..rangehi REPLACE whentype WITH &g_tempalias..whentype REPLACE WHEN WITH &g_tempalias..when REPLACE validtype WITH &g_tempalias..validtype REPLACE VALID WITH &g_tempalias..valid REPLACE errortype WITH &g_tempalias..errortype REPLACE ERROR WITH &g_tempalias..error REPLACE messtype WITH &g_tempalias..messtype REPLACE MESSAGE WITH &g_tempalias..message REPLACE showtype WITH &g_tempalias..showtype REPLACE SHOW WITH &g_tempalias..show REPLACE activtype WITH &g_tempalias..activtype REPLACE ACTIVATE WITH &g_tempalias..activate REPLACE deacttype WITH &g_tempalias..deacttype REPLACE DEACTIVATE WITH &g_tempalias..deactivate REPLACE proctype WITH &g_tempalias..proctype REPLACE proccode WITH &g_tempalias..proccode REPLACE setuptype WITH &g_tempalias..setuptype REPLACE setupcode WITH &g_tempalias..setupcode REPLACE timestamp WITH &g_tempalias..timestamp THERMSTEP PLATFORM G_TOPLATFORM G_NEWOBJECTS G_TEMPALIAS G_SCRNALIAS G_FROMPLATFORM ISSELECTED UNIQUEID OBJTYPE OBJCODE SNIPONLY GETSNIPFLAG SETUPCODE UPDENVIRON G_GRPH2CHAR ORDER WIDTH EXPR G_MERCURY UPDTHERM NOCPTRANSv IF &g_tempalias..timestamp > timestamp REPLACE name WITH &g_tempalias..name REPLACE expr WITH &g_tempalias..expr REPLACE STYLE WITH &g_tempalias..style REPLACE PICTURE WITH &g_tempalias..picture REPLACE ORDER WITH &g_tempalias..order REPLACE unique WITH &g_tempalias..unique REPLACE ENVIRON WITH &g_tempalias..environ REPLACE boxchar WITH &g_tempalias..boxchar REPLACE fillchar WITH &g_tempalias..fillchar REPLACE TAG WITH &g_tempalias..tag REPLACE tag2 WITH &g_tempalias..tag2 REPLACE mode WITH &g_tempalias..mode REPLACE ruler WITH &g_tempalias..ruler REPLACE rulerlines WITH &g_tempalias..rulerlines REPLACE grid WITH &g_tempalias..grid REPLACE gridv WITH &g_tempalias..gridv REPLACE gridh WITH &g_tempalias..gridh REPLACE FLOAT WITH &g_tempalias..float REPLACE STRETCH WITH &g_tempalias..stretch REPLACE stretchtop WITH &g_tempalias..stretchtop REPLACE TOP WITH &g_tempalias..top REPLACE BOTTOM WITH &g_tempalias..bottom REPLACE suptype WITH &g_tempalias..suptype REPLACE suprest WITH &g_tempalias..suprest REPLACE norepeat WITH &g_tempalias..norepeat REPLACE resetrpt WITH &g_tempalias..resetrpt REPLACE pagebreak WITH &g_tempalias..pagebreak REPLACE colbreak WITH &g_tempalias..colbreak REPLACE resetpage WITH &g_tempalias..resetpage REPLACE GENERAL WITH &g_tempalias..general REPLACE spacing WITH &g_tempalias..spacing REPLACE DOUBLE WITH &g_tempalias..double REPLACE swapheader WITH &g_tempalias..swapheader REPLACE swapfooter WITH &g_tempalias..swapfooter REPLACE ejectbefor WITH &g_tempalias..ejectbefor REPLACE ejectafter WITH &g_tempalias..ejectafter REPLACE PLAIN WITH &g_tempalias..plain REPLACE SUMMARY WITH &g_tempalias..summary REPLACE addalias WITH &g_tempalias..addalias REPLACE offset WITH &g_tempalias..offset REPLACE topmargin WITH &g_tempalias..topmargin REPLACE botmargin WITH &g_tempalias..botmargin REPLACE totaltype WITH &g_tempalias..totaltype REPLACE resettotal WITH &g_tempalias..resettotal REPLACE resoid WITH &g_tempalias..resoid REPLACE curpos WITH &g_tempalias..curpos REPLACE supalways WITH &g_tempalias..supalways REPLACE supovflow WITH &g_tempalias..supovflow REPLACE suprpcol WITH &g_tempalias..suprpcol REPLACE supgroup WITH &g_tempalias..supgroup REPLACE supvalchng WITH &g_tempalias..supvalchng REPLACE supexpr WITH &g_tempalias..supexpr userb .user REPLACE user WITH &g_tempalias..user REPLACE timestamp WITH &g_tempalias..timestamp SET NOCPTRANS TO &cOldCPTrans THERMSTEP COLDCPTRANS PLATFORM G_TOPLATFORM G_NEWOBJECTS G_TEMPALIAS G_SCRNALIAS G_FROMPLATFORM ISSELECTED UNIQUEID OBJTYPE OBJCODE UPDENVIRON G_GRPH2CHAR WIDTH ADJRPTSUPPRESS ADJRPTFLOAT TOTALTYPE ADJRPTRESET G_MERCURY UPDTHERM MUSTEXIST ENVSELECT ISNEWERENV ISENVIRON OBJTYPE PLATFORM G_TOPLATFORM G_FROMPLATFORM G_GRPH2CHAR G_UPDENVIRON WINDOWS G_SCRNALIAS G_20ALIAS WASARRANGED ARRANGED DEVINFO SCRNROW SCRNCOL SYMBOLS CKVAL TIMESTAMP THERMSTEP BANDCOUNT G_NEWOBJMODE G_SCRNALIAS G_CHAR2GRPH GETWINDFONT UPDENVIRON PLATFORM G_TOPLATFORM OBJTYPE WFONTFACE FONTFACE WFONTSIZE FONTSIZE WFONTSTYLE FONTSTYLE G_DFLTFFACE G_DFLTFSIZE G_DFLTFSTYLE G_TEMPALIAS G_FROMPLATFORM ISSELECTED UNIQUEID OBJCODE G_SNIPPETS G_FILETYPE NEWBANDS BANDS BANDINFO RIGHTMOST BOTTOMMOST PLATFORMDEFAULTS FILLININFO ADJBOX RPTOBJCONVERT FINDLIKEVPOS FINDLIKEHPOS WIDTH NUM2STYLE HEIGHT G_MERCURY UPDTHERM THERMSTEP BANDCOUNT G_NEWOBJMODE G_SCRNALIAS UPDENVIRON G_TEMPALIAS PLATFORM G_FROMPLATFORM OBJTYPE OBJCODE ISSELECTED UNIQUEID BLACKBOX FILLRED FILLBLUE FILLGREEN FILLPAT G_TOPLATFORM G_SNIPPETS G_FILETYPE NEWBANDS BANDS BANDINFO PLATFORMDEFAULTS FILLININFO ADJHEIGHTANDWIDTH RPTOBJCONVERT FINDLIKEVPOS FINDLIKEHPOS G_MERCURY UPDTHERM MAKECHARFIT THERMSTEP BANDCOUNT G_NEWOBJMODE G_BANDFUDGE G_SCRNALIAS UPDENVIRON G_TEMPALIAS PLATFORM G_FROMPLATFORM ISSELECTED UNIQUEID OBJTYPE OBJCODE G_TOPLATFORM G_SNIPPETS G_FILETYPE NEWBANDS BANDS BANDINFO PLATFORMDEFAULTS FILLININFO ADJHEIGHTANDWIDTH RPTOBJCONVERT FINDLIKEVPOS FINDLIKEHPOS G_MERCURY UPDTHERMF PREVBAND BANDSTART BANDHEIGHT OBJTYPE G_SCRNALIAS PLATFORM G_FROMPLATFORM UNIQUEID G_TOPLATFORM RPTOBJCONVERT G_CHAR2GRPH HEIGHT G_BANDHEIGHT G_BANDFUDGE G_PIXELSIZE G_GRPH2CHAR G_GRPH2GRPH OBJCODE BANDPOS G_TEMPALIAS5 OBJINDEX ALLENVIRONS G_FROMOBJONLYALIAS RECNUM G_SCRNALIAS PLATFORM G_FROMPLATFORM OBJTYPE BLACKBOX FILLRED FILLBLUE FILLGREEN FILLPAT G_FILETYPE OKTRANSPORT COMMENT ALLOTHERS ALLGROUPS G_TOPLATFORM OBJCODE RPTCONVERT MERGELABELOBJECTS LINESBETWEEN MAKECHARFIT SUPPRESSBLANKLINES OBJINDEX ALLENVIRONS G_FROMOBJONLYALIAS RECNUM G_SCRNALIAS PLATFORM G_FROMPLATFORM OBJTYPE G_FILETYPE OKTRANSPORT COMMENT OBJECTPOS ALLOTHERS ALLGROUPS CALCWINDOWDIMENSIONS ADJITEMSINBOXES ADJINVBTNS JOINLINES RPTCONVERT SUPPRESSBLANKLINES ADDGRAPHICALLABELGROUPS LABELBANDS LABELLINES G_MERCURY UPDTHERM G_ALLOBJECTS G_TOPLATFORM STYLE G_WINDHEIGHT G_LASTOBJECTLINE ADJUSTMENT HEIGHT FONTFACE FONTSIZE NUM2STYLE FONTSTYLE STRETCHLINESTOBORDERS OBJINDEX ALLENVIRONS G_FROMOBJONLYALIAS RECNUM G_SCRNALIAS PLATFORM G_FROMPLATFORM OBJTYPE G_FILETYPE OKTRANSPORT COMMENT ALLOTHERS ALLGROUPS RPTCONVERT MERGELABELOBJECTS LINESBETWEEN FNAME102 FTYPE BAKNAME IN_AREA OBJTYPE CONTENT FLDCONTENT FRMCONTENT VERTPOS HORZPOS HEIGHT WIDTH FONTSIZE STYLE PENRED PENGREEN PENBLUE FILLRED FILLGREEN FILLBLUE PICTURE RANGEUP RANGELOW VALID INITC CALCEXP OUTNAME FORCEEXT FPOUT DOCREATE PLATFORM OBJCODE TOPMARGIN BOTMARGIN OFFSET ENVIRON EJECTBEFOR EJECTAFTER FLOAT CPTRANS G_TOCODEPAGE G_FROMCODEPAGE BOXCHAR TOTALTYPE RESETTOTAL NOREPEAT STRETCH FILLCHAR PAGEBREAK SWAPHEADER SWAPFOOTER No se pudo abrir el formulario de informe FoxBASE+ Fatal FNAMEFBP FTYPE BAKNAME IN_AREA IDBYTE OBJNAME RP_POOL RP_LTADR RP_LTLEN RP_SSEXNO RP_SBEXNO RP_DOUBLESP RP_FLDS_WIDTH RP_FLDS_EXPRNO RP_WIDTH RP_FLDS_HEADNO RP_PLAIN BAND_ROWS CURRENT_ROW GROUP_NUM HEAD_ROW RP_FLDS_TYPE RP_FLDS_TOTALS RP_FLDS_DP G_SCRNDBF ERRORHANDLER CVTSHORT POOLSIZE RP_PGHDNO RP_SBHDNO RP_SSHDNO RP_LENGTH RP_LMARG RP_RMARG RP_FLDCNT RP_SUMMARY RP_SUBEJECT RP_OTHER CVTBYTE RP_PAGENO DOCREATE EVALIMPORTEXPR INITBANDS BLDBREAKS BLDDETAIL OBJTYPE OBJCODE FORCEEXT unique FNAME102 FTYPE SHORT CONTLEN REMARKS HEIGHT LMARGIN WIDTH NUMACROSS SPACESBET LINESBET BAKNAME IN_AREA LBLNAME CVTSHORT LBLLINES START CURLEN OBJTYPE OBJCODE STYLE ENVIRON ORDER ADDALIAS CPTRANS G_TOCODEPAGE G_FROMCODEPAGE FORCEEXTW unique FNAMEFBP FTYPE WIDTH HEIGHT LMARGIN SPACESBET LINESBET NUMACROSS LBLNAME IN_AREA DUMMY REMARKS CVTSHORT LBLLINES LASTLINE OBJTYPE OBJCODE STYLE ENVIRON ORDER ADDALIAS CPTRANS G_TOCODEPAGE G_FROMCODEPAGE BAKNAME FORCEEXT PAGE NO. _PAGENO DATE() PLATFORM WIDTH RP_WIDTH HEIGHT RP_LENGTH OFFSET RP_LMARG EJECTBEFOR RP_PLAIN GROUP_NUM RP_SUMMARY SUMMARY RP_OTHER EJECTAFTER PLAIN RP_TOTALS CURRENT_ROW BANDSIZE STRING GETLITEXPR RP_PGHDNO LINESFORHEADING FLD_HEAD_EXIST HOWMANYHEADINGS MAKEBAND BANDSTRING RP_SBEXNO RP_SUBEJECT NEWPAGE RP_SSEXNO NUMLINES RP_DOUBLESP TOTALS_EXIST GROUPNUM MAKETEXT BAND_ROWS MAKEFIELD HEAD_ROW HEADING GETHEADING CENTER_COL EXPRNO HEADNO STARS STRING GETLITEXPR STRLEN MAKETEXT MAKEFIELD RP_LTLEN LITEXIST RP_SBEXNO BLDBREAKEXP RP_SBHDNO BAND_ROWS RP_SSEXNO RP_SSHDNO * Subsubtotal * ** Subtotal ** ** Subtotal ** *** Total *** PG_ROW ISTOTAL STRING HEADING BAND_ROWS RP_FLDCNT GETLITEXPR RP_FLDS_EXPRNO RP_FLDS_WIDTH RP_WIDTH MAKEFIELD RP_FLDS_TYPE RP_FLDS_TOTALS GROUP_NUM ADDTOTAL RP_FLDS_HEADNO HEAD_ROW GETHEADING MAKETEXT ISFIRST WORKSTR TOTALSTR RESET MAKETEXT MAKEFIELD RP_POOL RP_LTADR STRING LITEXIST RP_POOL RP_LTADR RP_LTLEN STRING NEWPAGE PLATFORM OBJTYPE OBJCODE CPTRANS G_TOCODEPAGE G_FROMCODEPAGE HEIGHT PAGEBREAK BAND_ROWS CURRENT_ROW STRING PLATFORM CPTRANS G_TOCODEPAGE G_FROMCODEPAGE OBJTYPE HEIGHT WIDTH HPOS3 STRING FLDCHAR STRCH TOTAL RESET PLATFORM OBJTYPE CPTRANS G_TOCODEPAGE G_FROMCODEPAGE HEIGHT WIDTH FILLCHAR STRETCH FLOAT TOTALTYPE RESETTOTAL HEADING STRING STRING RETVAL STRING2 HEADING GETHEADING RETVAL NEWVAL RP_FLDCNT GETLITEXPR RP_FLDS_HEADNO STRING LINESFORHEADING RP_FLDCNT LITEXIST RP_FLDS_HEADNO| RP_FLDCNT RP_FLDS_TOTALS5 LENGTH RP_WIDTH RP_LMARG RP_RMARG STRING RP_FLDCNT GETLITEXPR RP_FLDS_EXPRNO RP_FLDS_TYPE DBASE IV REPTOTALS RETCODE TP_FILETYPE G_SCRNDBF CVTSHORT DBASE IV REPTOTALS RETCODE TP_FILETYPE G_SCRNDBF CVTBYTE DUMMY .BMPC .BMP; .BMPbrlfq .bmp; .BMPbrlfq .BMPbrlfq brlfq ;NEW.BMP[ FROMBTN TOBTN ENDPOS OUTSTRG TOPOS PICTCLAU G_GRPH2CHAR G_CHAR2GRPH FROMARRAY TOARRAY SCATTERBUTTONS BTNLIST DESTARRAY FROMSTRG THEWORD OLDVPOS OBJID SAVEREC RETVAL PLATFORM G_FROMPLATFORM OBJTYPE UNIQUEID G_TOPLATFORM OLDHPOS OBJID SAVEREC RETVAL PLATFORM G_FROMPLATFORM OBJTYPE UNIQUEID G_TOPLATFORM RIGHT BOTTOM GETRIGHTMOST G_TOPLATFORM GETLOWEST PLATFORM OBJTYPE WIDTH HEIGHT G_FILETYPE RECNO PLATFORM G_FROMPLATFORM OBJTYPE G_FILETYPE FIXPEN G_TOPLATFORM ISENVIRON G_GRPH2CHAR G_WINDHEIGHT HEIGHT G_WINDWIDTH WIDTH ADJCOLOR G_CHAR2GRPH RULER RULERLINES GRIDV GRIDH PENRED PENGREEN PENBLUE STRETCHTOP BOTTOM CURPOS ADJOBJCODE ADJFONT G_MERCURY UPDTHERM_ THERMPART RECNO NUMOTHERS THERMSTEP OBJINDEX G_FROMOBJONLYALIAS RECNUM G_SCRNALIAS FIXPEN G_CHAR2GRPH CALCPOSITIONS GERROR PLATFORM G_TOPLATFORM FILLININFO G_MERCURY UPDTHERMe G_FILETYPE ADJRPTSUPPRESS ADJRPTFLOAT G_CHAR2GRPH OBJTYPE OBJCODE G_LOOK2D PICTURE ADDQUOTE MAKE2D MAKE3D WIDTH ADJRPTRESET FILLCHAR OFFSET G_GRPH2CHAR HEIGHT PENSIZE BOXCHAR OBJ2BASEFONT G_DFLTFFACE G_DFLTFSIZE G_DFLTFSTYLE FONTFACE FONTSIZE NUM2STYLE FONTSTYLE G_GRPH2GRPH G_WINBTNHEIGHT G_MACBTNHEIGHT G_POPHGHT PENPAT ADJPEN ADJCOLOR ADJFONT ADJHEIGHTANDWIDTH G_CHAR2GRPH FLOAT OBJTYPE HEIGHT STRETCHTOP BOTTOM STRETCH G_GRPH2CHAR G_CHAR2GRPH OBJTYPE NOREPEAT SUPVALCHNG SUPOVFLOW RESETRPT SUPRPCOL SUPGROUP SUPALWAYS G_GRPH2CHAR G_CHAR2GRPH RESETTOTAL G_GRPH2CHARF PLATFORM G_FROMPLATFORM OBJTYPE NOREPEATG SUPCOUNT G_GRPH2CHAR PLATFORM G_FROMPLATFORM OBJTYPE G_TOPLATFORM NOREPEAT G_CHAR2GRPH MYEXPR BCODE GETBANDCODE G_NOREPEAT THERMPART RECNO NUMOTHERS THERMSTEP OBJINDEX G_SCRNALIAS PLATFORM G_FROMPLATFORM OBJTYPE G_TOPLATFORM G_MERCURY UPDTHERM THERMSTEP PLATFORM G_TOPLATFORM ISREPTOBJECT OBJTYPE G_GRPH2CHAR RPTOBJCONVERT G_MERCURY UPDTHERM BANDCOUNT BANDS BANDINFO G_CHAR2GRPH CLONEBAND G_GRPH2GRPH BANDCOUNT BANDINDEX ENDINDEX POSINBAND SAVEREC OBJID ORIGVPOS LINEHEIGHT G_GRPH2GRPH GRPHRPTCVT G_NEWOBJMODE OBJTYPE G_CHAR2GRPH EMPTYBAND UNIQUEID HEIGHT CVTREPORTVERTICAL G_GRPH2CHAR OBJCODE WIDTH OFFSET ORIGHEIGHT ADJBOX ADJCOLOR ADJFONT GETBANDINDEX BANDS ENDINBAND CVTREPORTHORIZONTAL CVTRPTLINES ADJTEXT VPOS BANDCOUNT BANDSg SAVEREC BANDCOUNT PAGEFOOTER PAGEHEADER COLHEADER COLFOOTER TOPOSITION FROMPOSITION OBJCODE PLATFORM G_TOPLATFORM OBJTYPE BANDS G_CHAR2GRPH HEIGHT G_BANDHEIGHT G_BANDFUDGE G_PIXELSIZE G_GRPH2CHAR G_GRPH2GRPH G_FROMPLATFORM G_MACBANDHEIGHT G_WINBANDHEIGHT RESIZEBAND IN_AREA IN_REC PIVOT OUNIQID OVPOS OHPOS OWIDTH OHEIGHT OOBJCODE HEADBAND G_CHAR2GRPH PLATFORM G_TOPLATFORM OBJTYPE OBJCODE UNIQUEID HEIGHT TOBANDHEIGHT FMBANDVPOS FMBANDHEIGHT IN_REC MINBANDHEIGHT G_GRPH2CHAR PLATFORM G_FROMPLATFORM OBJTYPE HEIGHT CVTREPORTVERTICAL OBJID PLATFORM SAVEREC BANDSTART OBJTYPE UNIQUEID HEIGHT G_BANDHEIGHT G_BANDFUDGE G_PIXELSIZE SAVEREC BANDSTART BANDHEIGHT RETVAL G_TOPLATFORM PLATFORM G_FROMPLATFORM UNIQUEID HEIGHT BANDPOS OBJTYPE G_CHAR2GRPH* THISVPOS IN_NUM RETCODE STARTVPOS OBJTYPE PLATFORM G_TOPLATFORM HEIGHT G_BANDHEIGHT OBJCODEV WINDOWS BANDNUM G_FILETYPE OBJTYPE WIDTH GETTEXTWIDTH G_NEWOBJMODE GETBANDNUM HEIGHTY THEVPOS THEPLAT BANDNO CUMVPOS THEREC PLATFORM OBJTYPE HEIGHT G_BANDHEIGHT G_BANDFUDGE G_PIXELSIZE FONTFACE FONTSIZE NUM2STYLE FONTSTYLE G_PIXELSIZE UNITS G_GRPH2CHAR G_CHAR2GRPH G_RPTLINESIZE G_PIXELSIZE{ UNITS G_GRPH2CHAR G_CHAR2GRPH G_RPTCHARSIZE HEIGHT G_CHAR2GRPH G_GRPH2GRPH PLATFORM G_TOPLATFORM OBJTYPE LABELOBJMERGE0 RECNO SAVEREC WIDTH HEIGHT PICTURE FILLCHAR PLATFORM G_TOPLATFORM OBJTYPE m.g_scrnalias LINECOUNT SCANLOOP G_SCRNALIAS PLATFORM G_TOPLATFORM OBJTYPE LINES LINECOUNT BLANKLINES G_GRPH2GRPH PLATFORM G_TOPLATFORM OBJTYPE OBJCODE HEIGHT PENBLUE 3 1/2" x 15/16" x 1 3 1/2" x 15/16" x 2 3 1/2" x 15/16" x 3 3 2/10" x 11/12" x 3 (Cheshire) UUUUU 3" x 5 Rolodex 4" x 1 7/16" x 1 4" x 2 1/4 Rolodex 6 1/2" x 3 5/8 Envelope 9 7/8" x 7 1/8 Envelope LBXHEIGHT LBXWIDTH LBXLINESBET PLATFORM G_FROMPLATFORM OBJTYPE OBJCODE HEIGHT PENBLUE WIDTH G_RPTLINESIZE G_RPTCHARSIZE G_TOPLATFORM BANDSTART LINECOUNT THERMSTEP LBXWIDTH SAVEREC NEXTEXPR PLATFORM G_TOPLATFORM OBJTYPE WIDTH G_FROMPLATFORM G_RPTCHARSIZE OBJCODE G_RPTLINESIZE HEIGHT FILLCHAR FLOAT STRETCH SPACING OFFSET TOTALTYPE RESETTOTAL SUPALWAYS SUPOVFLOW SUPRPCOL SUPGROUP SUPVALCHNG ADJFONT ADJCOLOR G_MERCURY UPDTHERM INDEX RECORD HORIZ WIDTH NUMOTHERS THERMSTEP OBJECTPOS G_WINDWIDTH G_WINDHEIGHT UNIQUEID OBJTYPE SPACING PICTURE VERT1 ENDPOS[ CURLINE LARGESTOBJ LINEHEIGHT ADJWINDOWWIDTH THERMSTEP G_FROMOBJONLYALIAS G_SCRNALIAS UNIQUEID PLATFORM G_TEMPINDEX G_TOPLATFORM ADJWINDWIDTH FINDWIDEROBJECTS OBJECTPOS ADJHEIGHT OBJINDEX HORIZBUTTON NUMITEMS G_MERCURY UPDTHERM OBJTYPE WIDTH REPOOBJECTS HEIGHT ADJWINDOWWIDTH CURCOL ADJCOL RIGHTALIGNFLAG NUMITEMS OLDUNIQUEID OLDWIDTH BUTTONFLAG NEWWIDTH ADJUST THERMSTEP OBJINDEX OBJECTPOS HORIZBUTTON UNIQUEID PLATFORM G_TOPLATFORM WIDTH SPACING OBJTYPE ADJHPOS HPOS G_MERCURY UPDTHERM+ REPLACE &g_scrnalias..hpos WITH &g_scrnalias..hpos + m.adjustment REPLACE &g_scrnalias..width WITH &g_scrnalias..width + m.adjustment ADJUSTMENT POSITION G_FROMOBJONLYALIAS PLATFORM G_FROMPLATFORM OBJTYPE HEIGHT WIDTH G_SCRNALIASj WINDHEIGHT WINDWIDTH THERMSTEP RIGHTALIGN SAVEREC ADJUST BUTTONADJUST NUMRB WIDTH OBJINDEX OBJECTPOS CURLINE PLATFORM G_TOPLATFORM UNIQUEID G_LASTOBJECTLINE GETLASTOBJECTLINE HEIGHT HORIZBUTTON G_VPOPUP ADJBOX G_MERCURY UPDTHERM SUBFLAG EMPTYBOX NEWLASTLINE BOXDIMENSION G_FROMOBJONLYALIAS OBJTYPE HEIGHT WIDTH SHRINKBOX ITEMSINBOXES G_LASTOBJECTLINE G_VPOPUP G_SCRNALIAS THISID UNIQUEID PLATFORM G_TOPLATFORM boxdimension[1,2] = &g_scrnalias..vpos boxdimension[2,2] = &g_scrnalias..hpos m.newbottom = &g_scrnalias..vpos + &g_scrnalias..height m.twidth = TXTWIDTH(&g_scrnalias..expr,g_dfltfface,g_dfltfsize,num2style(g_boldstylenum)) m.twidth = &g_scrnalias..width IF &g_scrnalias..hpos + m.twidth > boxdimension[4,2] boxdimension[4,2] = &g_scrnalias..hpos + m.twidth REPLACE &g_scrnalias..vpos WITH &g_scrnalias..vpos - 0.312 m.newbottom = &g_scrnalias..vpos + &g_scrnalias..height boxdimension[4,2] = &g_scrnalias..hpos + getobjwidth(&g_scrnalias..objtype, &g_scrnalias..picture, &g_scrnalias..width, &g_scrnalias..spacing, m.g_toplatform) m.newbottom = &g_scrnalias..vpos + m.numitems + (&g_scrnalias..spacing * (m.numitems -1)) boxdimension[4,2] = &g_scrnalias..hpos + &g_scrnalias..width m.newbottom = &g_scrnalias..vpos + &g_scrnalias..height boxdimension[4,2] = &g_scrnalias..hpos + &g_scrnalias..width m.newbottom = &g_scrnalias..vpos + &g_scrnalias..height boxdimension[4,2] = &g_scrnalias..hpos + &g_scrnalias..width BOTTOM RIGHT EMPTYBOX SHRINKBOX WASAPOPUP OLDBOTTOM NEWBOTTOM TWIDTH G_BOXEDITEMSALIAS HEIGHT WIDTH UNIQUEID SPACING OBJTYPE PICTURE PLATFORM G_FROMOBJONLYALIAS CPTCOND G_TOPLATFORM G_SCRNALIAS BOXDIMENSION FINDOTHERSONLINE G_CHAR2GRPH NUMITEMS HORIZBUTTON GETOBJWIDTH( m.newbottom = &g_scrnalias..vpos + &g_scrnalias..height m.newbottom = &g_scrnalias..vpos + &g_scrnalias..height m.newbottom = &g_scrnalias..vpos + &g_scrnalias..height m.newbottom = &g_scrnalias..vpos + &g_scrnalias..height LINENO NEWBOTTOM OLDBOTTOM CURTYPE SAVEREC PREVTYPE OBJTYPE HEIGHT SAVEREC HORIZONTAL BTNID OBJID FLAG THERMSTEP LEFTMOST LABEL BTNVPOS BTNHPOS BTNWIDTH BTNHEIGHT BTNSPACING BTNCOUNT DEFWIDTH DEFWIDTHINDEX DEFHEIGHT DEFHEIGHTINDEX TOPMARGIN BOTTOMMARGIN LEFTMARGIN RIGHTMARGIN ADJUSTMENT TOTADJUST NEWHPOS PLATFORM G_FROMPLATFORM OBJTYPE HORIZBUTTON PICTURE HEIGHT WIDTH SPACING UNIQUEID SIZES G_TOPLATFORM ADJPOSTINV G_MERCURY UPDTHERM YSTART XSTART ADJUSTMENT SAVEREC SAVEID FINDALIGNEND PLATFORM G_FROMPLATFORM OBJTYPE C_LIST C_POPUP UNIQUEID G_TOPLATFORM7 YSTART XSTART INCREMENT SAVEREC YTEMP XTEMP RESULT PLATFORM G_FROMPLATFORM OBJTYPE C_LIST C_POPUP| SAVEREC OBJID OBJREC OBJWIDTH FROMHEIGHT FROMWIDTH G_FILETYPE PLATFORM G_FROMPLATFORM OBJTYPE BORDER STYLE HEIGHT WIDTH UNIQUEID G_TOPLATFORM TOHEIGHT TOWIDTHO SAVEREC JOINCOUNT LINEREC LINEID THERMSTEP OBJVPOS OBJHPOS OBJRIGHT OBJBOTTOM OBJID OBJREC OBJCODE FROMVPOS FROMHPOS FROMHEIGHT FROMWIDTH FROMEND FROMCODE TOVPOS TOHPOS TOHEIGHT TOWIDTH JOINVPOS JOINHPOS VLEVEL HLEVEL JOINS PLATFORM G_FROMPLATFORM OBJTYPE WIDTH HEIGHT G_MERCURY UPDTHERM UNIQUEID G_TOPLATFORM JOINHORIZONTAL JOINVERTICAL MEETBOXCHAR ZAPBOXCHAR REJOINBOXES FROMVPOS OLDHPOS1 OLDHPOS2 TOVPOS TOTHICKNESS FROMCODE OBJVPOS OBJHPOS OBJRIGHT OBJBOTTOM OBJCODE OBJID OBJREC WIDTH HEIGHT UNIQUEID PLATFORM G_TOPLATFORM OBJTYPE JOINVPOS VLEVEL HLEVEL GETLINEWIDTH JOINHPOS ADDJOIN OLDVPOS1 OLDVPOS2 FROMHPOS TOHPOS FROMCODE OBJVPOS OBJHPOS OBJRIGHT OBJBOTTOM OBJCODE OBJID OBJREC WIDTH HEIGHT UNIQUEID PLATFORM G_TOPLATFORM OBJTYPE JOINHPOS VLEVEL HLEVEL GETLINEWIDTH JOINVPOS ADDJOIN$ SAVEREC FROMVPOS FROMHPOS TOVPOS TOHPOS JOINREC JOINID PLATFORM G_FROMPLATFORM OBJTYPE CPTCOND UNIQUEID G_TOPLATFORM WIDTH HEIGHT ADDJOIN RECNO FROMVPOS FROMHPOS PLATFORM G_TOPLATFORM OBJTYPE BOXJOIN MODE! FROMVPOS FROMHPOS TOVPOS TOHPOS VMATCH HMATCH JOINS JOINCOUNT FROMVPOS FROMHPOS TOVPOS TOHPOS OBJECTCODE OBJEND SAVERECNO OBJID JOINWIDTH OBJREC PLATFORM G_FROMPLATFORM OBJTYPE WIDTH HEIGHT UNIQUEID OBJCODE G_TOPLATFORM JOINLINEWIDTH GETLINEWIDTH JOINVPOS JOINHPOS HORIZONTAL SKIPID SAVERECNO THICKNESS PLATFORM G_FROMPLATFORM OBJTYPE UNIQUEID WIDTH HEIGHT GETLINEWIDTH OBJCODEl CURRENTLASTLINE NEWPOSITION NUMITEMS OBJTYPE G_LASTOBJECTLINE HEIGHT HORIZBUTTON PICTURE SPACING} OBJTYPE G_FILETYPE OBJCODE G_CHAR2GRPH PLATFORM G_TOPLATFORM OBJTYPE FONTFACE G_DFLTFFACE G_DFLTFSIZE FONTSIZE G_DFLTFSTYLE NUM2STYLE FONTSTYLE TXTWIDTHRATIO BOLDTXTRATIO CHKBOXWIDTH SAVEREC OLDWIDTH NEWHEIGHT NEWWIDTH WNDFACE WNDSIZE WNDSTYLE ALIGNMENT G_CHAR2GRPH PLATFORM G_TOPLATFORM OBJTYPE FONTFACE FONTSIZE FONTSTYLE G_DFLTFFACE G_DFLTFSIZE G_DFLTFSTYLE NUM2STYLE G_BOLDSTYLENUM G_GRPH2CHAR G_FROMPLATFORM G_CTRLFFACE G_CTRLFSIZE G_CTRLFSTYLE WIDTH DOSSIZE COLUMNAR HEIGHT ADJTEXT PICTURE ADJBITMAPCTRL MAXBTNWIDTH SPACING G_POPHGHT G_GRPH2GRPH G_BTNHEIGHT OBJCODE ADJBOX$ OTYPE SAVEREC PLATFORM G_FROMPLATFORM OBJTYPE WIDTH0 OBJSIZE SCRNSIZE FUNCTION OLDPICTURE NEWPICTURE PICTURE STRIPPATHJ G_CHAR2GRPH G_FILETYPE COLORPAIR PENRED PENGREEN PENBLUE FILLRED FILLGREEN FILLBLUE OBJTYPE CONVERTCOLORPAIR G_GRPH2CHAR STYLE SCHEME SCHEME2 RGBTOX' GREEN COLOR G_CHAR2GRPH OBJTYPE PENSIZE PENPAT FILLPAT? OUTFACE OUTSIZE OUTSTYLE FONTFACE FONTSIZE NUM2STYLE FONTSTYLE G_CHAR2GRPH G_GRPH2GRPH OBJTYPE G_FONTSET G_DFLTFFACE G_DFLTFSIZE STYLE2NUM G_DFLTFSTYLE COMMONFONT G_WINDFFACE G_WINDFSIZE G_WINDFSTYLE G_CTRLFFACE G_CTRLFSIZE G_CTRLFSTYLE G_FILETYPE STYLE G_NORMSTYLENUM G_BOLDSTYLENUM MAPFONTV ARIAL COURIER NEW TIMES NEW ROMAN THEFONT -*/, -*/, OLDSCHEME RGBVALUE COMMA COLORPAIR PENRED PENGREEN PENBLUE FILLRED FILLGREEN FILLBLUE RGBSTRING OCCURENCE COMMA VALUE m.stylenumb BIUOSCE- STYLENUM STYLECHARS OUTSTRG\ m.strgb OLDWIDTH SAVEREC OBJTYPE G_GRPH2CHAR WIDTH PICTURE SPACING HEIGHT PLATFORM UNIQUEID ADJUST G_CHAR2GRPH OBJCODE PENSIZE HEIGHT GETLINEWIDTH G_FILETYPE STYLE PENPAT FILLPAT OBJTYPE WIDTH BORDER G_GRPH2CHAR FILLCHAR OBJCODE HORIZONTAL G_FILETYPE G_RPTFFACE G_RPTFSIZE G_RPTTXTFONTSTYLE G_DFLTFFACE G_DFLTFSIZE_ PICTCLAUSE PICTURE STYLE LABEL G_CHAR2GRPH G_GRPH2GRPH G_GRPH2CHAR+ WINDOWS OBJTYPE PICTURE WIDTH SPACING PLATFORM NUMITEMS HORIZBUTTON* WINDOWS OBJTYPE PICTURE HEIGHT SPACING PLATFORM NUMITEMS HORIZBUTTON PLATFORM RIGHT OBJTYPE GETOBJWIDTH PICTURE WIDTH SPACING G_TOPLATFORM PLATFORM BOTTOM OBJTYPE GETOBJHEIGHT PICTURE HEIGHT SPACING G_TOPLATFORM% unique unique PLATFORM UNIQUEID TIMESTAMP OBJTYPE OBJCODE HEIGHT WIDTH STYLE PICTURE ORDER COMMENT ENVIRON BOXCHAR FILLCHAR PENRED PENGREEN PENBLUE FILLRED FILLGREEN FILLBLUE PENSIZE PENPAT FILLPAT FONTFACE FONTSTYLE FONTSIZE RULER RULERLINES GRIDV GRIDH SCHEME SCHEME2 COLORPAIR LOTYPE RANGELO HITYPE RANGEHI WHENTYPE WHEN VALIDTYPE VALID ERRORTYPE ERROR MESSTYPE MESSAGE SHOWTYPE SHOW ACTIVTYPE ACTIVATE DEACTTYPE DEACTIVATE PROCTYPE PROCCODE SETUPTYPE SETUPCODE FLOAT CLOSE MINIMIZE BORDER SHADOW CENTER REFRESH DISABLED SCROLLBAR ADDALIAS INITIALVAL INITIALNUM SPACING CURPOS STRETCH STRETCHTOP BOTTOM SUPTYPE SUPREST NOREPEAT RESETRPT PAGEBREAK COLBREAK RESETPAGE GENERAL DOUBLE SWAPHEADER SWAPFOOTER EJECTBEFOR EJECTAFTER PLAIN SUMMARY OFFSET TOPMARGIN BOTMARGIN TOTALTYPE RESETTOTAL RESOID SUPALWAYS SUPOVFLOW SUPRPCOL SUPGROUP SUPVALCHNG SUPEXPR OUTFILE HOMEDIR SETID EXCLUDE MAINPROG ARRANGED SAVECODE DEFNAME OPENFILES CLOSEFILES DEFWINDS RELWINDS READCYCLE MULTREADS NOLOCK MODAL ASSOCWINDS DEBUG ENCRYPT NOLOGO SCRNORDER CMNTSTYLE OBJREV COMMANDS DEVINFO SYMBOLS OBJECT CKVAL NOCPTRANSv DELETEDv tag2b tag2b SET NOCPTRANS TO &cOldCPTrans SET DELETED &in_del TEMP20ALIAS IN_DEL COLDCPTRANS CTAG2 DOCREATE G_FILETYPE TAG2 G_SCRNDBF G_SCRNALIAS G_20ALIAS G_CHAR2GRPH OBJTYPE OBJCODE HEIGHT PAGEBREAK COLBREAK RESETPAGE PLATFORM G_TOPLATFORM UNIQUEID LBXNUMACROSS LBXLMARGIN LBXSPACESBET LBXLINESBET LBXHEIGHT ADDGRAPHICALLABELGROUPS OBJTYPE OBJCODE HEIGHT PAGEBREAK COLBREAK RESETPAGE PENBLUE TIMESTAMP UNIQUEID PLATFORM G_FROMPLATFORM G_CHAR2GRPH RULER RULERLINES GRIDV GRIDHU LBXNUMACROSS LBXLMARGIN LBXSPACESBET LBXLINESBET LBXHEIGHT TIMESTAMP G_FILETYPE OBJTYPE NUMACROSS LMARGIN SPACESBET LINESBET HEIGHT MAKECURSOR UPDATELABELDATA CONVERTPROJECT STAMPVAL PLATFORMDEFAULTS UPDATEVERSIONu PLATFORM OBJTYPE G_FILETYPE OBJCODE CONVERTEDPLATFORM MATCHPLATFORM TIMESTAMP PLATFORM OBJTYPE CC$%CCC$H CCC$i CCCC^ CCCC^ CCCC^ DATEVAL TIMEVAL SHIFTL SHIFTRZ VALUE TIMES LOOP\ VALUE TIMES PLATFORM COUNT G_SCRNALIAS screen report label project tstructd Converter Converter tstructd @*HT3 \!\<Yes;\?\<Cancel tstructd tstructd File: @*HT ;\!\?\<No Unknown Version. Fatal tstructd TEXTLINE CHOICE FTYPE DLGWIDTH FNT_RATIO G_FILETYPE UPDTHERM TSTRUCTD G_TDLGFACE G_TDLGSIZE G_TDLGSTYLE G_TDLGSTY2 G_TDLGBTN G_SCRNDBF JUSTFNAME ERRORHANDLER CURPOS, WINDOWS Transportador de Visual FoxPro transdlg Transportar Archivo de pantalla: Archivo de informe:6 El archivo tiene objetos definidos paraC otra plataforma distinta de Al transportar este archivo se agregan, actualizan C o sustituyen definiciones de objetos Transportar objetos: Los objetos son nuevos para C o de versi posterior a sus equivalentes que objetos equivalentes en C A`U@@ |?U>@ @*C Objetos nuevos para C A`UA@ @*C Objetos modificados m s recientemente @*C Todos los objetos, sustituyendo definiciones @*VNT C ;Abrir sin cambios @*VN Fuente... @*RV Preguntar para cada archivo;No preguntar para PJXSCXFRX los archivos;No preguntar para ning n archivo Transportador Visual FoxPro transdlg Archivo de pantalla: Archivo de informe: Archivo de etiqueta:66 En este archivo hay objetos definidos C para otra plataforma distinta de Si transporta este archivo crear definiciones de para estos objetos. Si no se transporta el archivo, no se convertir Transportar objetos desde: |?U>@ @*VN Fuente... @*VNT C ;No transportar @*RV Preguntar para cada archivo;No preguntar para PJXSCXFRX los archivos;No preguntar para ning n archivo l'*@6 Transportador FoxPro transdlg Archivo de pantalla: Archivo de informe:6 @*VNTM C ;Open As Is @*VNM Font... @*C3 2D Controls El archivo tiene objetos definidos para otra C plataforma distinta de Los objetos son nuevos para C o de versi posterior a sus equivalentes Al transportar este archivo se agregan, actualizan C o sustituyen definiciones de objetos Transportar objetos: @^3 C |?U>@ Transportar @*C3 Objetos nuevos para C A`UA@ @*C3 Objetos modificados m s recientemente que objetos equivalentes en C @*C3 Todos los objetos, sustituyendo definiciones @*RV Preguntar para cada archivo;No preguntar para PJXSCXFRX los archivos;No preguntar para ning n archivo Transportador de FoxPro transdlg Screen File: Report File: Label File:66 El archivo tiene objetos definidos para otra C plataforma distinta de By transporting this file, you createC definitions for these objects. Transport Objects From: @*VNTM C ;\?Cancel @*VNM Font... @*C3 2D Controls @^3 C |?U>@ @*RV Preguntar para cada archivo;No preguntar para PJXSCXFRX los archivos;No preguntar para ning n archivo FoxPro para Windows transdlg Archivo de pantalla: Archivo de informe:6 El archivo tiene objetos definidos para otra plataforma distinta de MS-DOS. Transportar objetos desde: @*VNT \!Transportar y abrir;Abrir tal y como est ;\?Cancelar Transportar @*C Objetos nuevos para MS-DOS @*C Objetos modificados m s recientemente que objetos equivalentes en MS-DOS @*C Todos los objetos, sustituyendo definiciones para los objetos del archivo. Si transporta este archivo agregar actualizar o reemplazar definiciones de MS-DOS transdlg transdlg Archivo de pantalla: Archivo de informe:6 El archivo tiene objetos definidos para otra plataforma distinta de MS-DOS. Transportar objetos desde: @*VNT \!Transportar y abrir;\?Cancelar Si transporta este archivo crear MS-DOS definiciones para estos objetos. transdlg Versi n de FoxPro desconocida. Fatal transdlg FTYPE CHOICE FROMPLATFORM DLGNUM GNSHOWME HASRECORDS DFLTPLAT G_ALLOBJECTS TRANSDLG G_TDLGFACE G_TDLGSIZE G_TDLGSTY1 G_TDLGSTYLE STRIPPATH CREALNAME VERSIONCAP G_TOPLATFORM THEPICT MAKEPICT G_NEWOBJECTS SCRNCTRL G_SNIPPETS TRANSPRMPT PVALID G_ASKFONT ASKFONT G_TPFILEINDX IFORMWIDTH IFORMHEIGHT G_TDLGBTN G_LOOK2D SETCTRL G_SMFACE G_SMSIZE G_SMSTY1 G_SMSTYLE G_TDLGSTY2 G_FILETYPE ERRORHANDLER GASHOWME RDVALID DEACCLAU SHOWCLAU G_FONTSET G_DFLTFFACE G_DFLTFSIZE G_DFLTFSTYLE WINDOWS FoxPro para Windows FoxPro para Macintosh FoxPro para MS-DOS/UNIX FoxPro para Windows HASRECORDSD FoxPro para MS-DOS/UNIX FoxPro para MS-DOS/UNIX WINDOWS FoxPro para Windows FoxPro para Windows FoxPro para Macintosh FoxPro para Macintosh DFLTITEM PICTSTRG A_PLATS LOOPTOP FOUND_DFLT HASRECORDS Transportar EnergizeC TRANSPRT5 Energize Transportar G_ENERGIZE Transportar todos los objetos sobrescribir todas las C definiciones de objeto existentes en el archivo. DLGNUM GASHOWME G_TPFILEINDX G_ALLOBJECTS CHOICE VERSIONCAP G_TOPLATFORM Que C Objetos equivalentes RGB(0,0,0,255,255,255) RGB(0,0,0,255,255,255) DLGNUM G_SNIPPETS G_NEWOBJECTS G_ALLOBJECTS THESTRING VERSIONCAP G_TOPLATFORM G_TDLGFACE G_TDLGSIZE G_TDLGSTYLE G_TDLGSTY1 CHOICE G_ALLOBJECTS G_NEWOBJECTS G_SNIPPETS WINDOWS WINDOWS FROMPLATFORM G_FROMPLATFORM pantalla: informe: etiqueta: FILETYPE ACTTHERM Geneva MS Sans Serif FNAME ADDELIPSE G_PATHSEP G_THERMFFACE G_THERMFSIZE G_THERMFSTYLE PARTIALFNAME FILNAME FILLEN BNAME ELIPSE REMAIN G_PATHSEP JUSTFNAME RETSTR JUSTPATH thermomete thermomete thermomete @ 2,1 TO 4,m.g_thermwidth+4 &g_boxstrg PROMPT G_SCRNDBF THERMFNAME THERMOMETE G_TDLGFACE G_TDLGSIZE G_TDLGSTYLE G_THERMWIDTH G_THERMFACE G_THERMSIZE G_THERMSTYLE gOThermb thermomete PERCENT NBLOCKS GOTHERM UPDATE ACTTHERM THERMOMETE G_THERMWIDTH, thermomete THERMOMETES ON ERROR &onerror Minor Serious ON ERROR &onerror Fatal ON ERROR &onerror LINENUM ERRCODE G_STATUS CLEANUP ERRSHOW CLEANWIND G_RETURNCODE transdlg transdlg lblwind lblwind msgscrn msgscrn Thermomete Thermomete tpselect tpselect TRANSDLG LBLWIND MSGSCRN THERMOMETE TPSELECT Error del transportador mero de l nea: CC Presione cualquier tecla para limpiar y salir... Error del transportador mero de l nea: CC Presione cualquier tecla para limpiar y salir... mero de l nea: C Presione cualquier tecla para limpiar y salir... CURSORv SET CURSOR &curcursor LINENO CURCURSOR ALERT G_TDLGFACE G_TDLGSIZE G_TDLGSTYLE FILNAME FILENAME SLASHPOS NAMELEN COLONPOSC OTYPE% OTYPE OTYPE" OTYPE MUSTEXIST MAXFROMTS MAXTOTS PLATFORM G_FROMPLATFORM ISENVIRON OBJTYPE TIMESTAMP G_TOPLATFORM PLATFORMb TARGET INREC RETVAL PLATFORMz Chicago Chicago Geneva Chicago Geneva Geneva Geneva Geneva MS Sans Serif Geneva MS Sans Serif MS Sans Serif MS Sans Serif Geneva MS Sans Serif G_LOOK2D G_CTRLFFACE G_CTRLFSIZE G_CTRLFSTYLE G_WINDFFACE G_WINDFSIZE G_WINDFSTYLE G_DFLTFFACE G_DFLTFSIZE G_DFLTFSTYLE G_MACBTNHEIGHT G_MACBTNFACE G_MACBTNSIZE G_MACBTNSTYLE G_WINBTNHEIGHT G_WINBTNFACE G_WINBTNSIZE G_WINBTNSTYLE G_THERMFACE G_THERMSIZE G_THERMSTYLE G_BTNHEIGHT GASHOWME G_TPFILEINDX G_WINDFFACE G_RPTFFACE G_WINDFSIZE G_RPTFSIZE G_WINDFSTYLE NUM2STYLE G_RPTFSTYLE GASHOWME G_TPFILEINDX G_DFLTFFACE G_DFLTFSIZE G_DFLTFSTYLE Geneva,10,N DEFINE WINDOW transtemp FROM 1,1 TO 2,2 FONT "&g_rptfface", m.g_rptfsize FONTSTRG G_DFLTFFACE G_DFLTFSIZE G_DFLTFSTYLE G_RPTLINESIZE G_RPTTXTFONTSTYLE G_PIXELSIZE G_RPTCHARSIZE G_FONTSET GASHOWME G_TPFILEINDX G_FILETYPE TRANSTEMP lblwind lblwind LBLWINDU #TRAN #TRAN SNIPPETS SNIPPET OLDMLINE RETCODE SNIPLEN UPLINE WORDNUM MATCH EXACTv CANDIDATE KEYWORD IN_EXACT RETVAL W_NUM RET_STR STRT_POSs PATHNAME FILNAME CLOCALFNAME CDIRSEP FILNAME CLOCALFNAME CDIRSEP FILNAME PNAME JUSTPATH JUSTFNAME ADDBSD ITEXT CVTSHORTB ITEXT CVTBYTE- ITEXT IOFF! MS SANS SERIF MS SANS SERIF MWIDTH BFONTFACE BFONTSIZE BFONTSTYLE OFONTFACE OFONTSIZE OFONTSTYLE G_CHAR2GRPH G_GRPH2CHAR MS-DOS WINDOWS Windows Macintosh OTYPE MBLUE MGREEN MPATTERN G_GRPH2CHAR SCAN FOR platform = m.g_toplatform AND (INLIST(objtype,11,12,7,13,14,15, 16,20,22,17,6,8,18,5) OR objtype = 1 OR objtype = 2) AND &g_tempalias..timestamp > timestamp SCAN FOR platform = m.g_toplatform AND INLIST(objtype,1,15,17, 8,9,18,5,6,7,2) AND &g_tempalias..timestamp > timestamp INITSEL G_SNIPPETS G_TEMPALIAS G_SCRNALIAS PLATFORM G_FROMPLATFORM OKTRANSPORT COMMENT UNIQUEID G_FILETYPE ADDSEL G_NEWOBJECTS G_CHAR2GRPH OBJTYPE G_TOPLATFORM G_GRPH2CHAR OBJCODE BLACKBOX FILLRED FILLBLUE FILLGREEN FILLPAT G_GRPH2GRPH G_TPSELCNT TPCANCEL GASHOWME G_TPFILEINDX TPSELECT TPARRAY VERSIONCAP G_STATUS G_RETURNCODE TRANSPRT G_TPSELCNTB STATUS G_TPSELCNT TPARRAY G_CHECKMARK ASSEMBLE UNIQUEID OBJTYPE IDNUM MOBJTYPE MOBJCODE TPARRAY From CC At: CCCC , Height: , Width: STATSTRG OBJTYPE TYPE2NAME NAME CLEANPICT PICTURE G_CHAR2GRPH G_GRPH2GRPH HEIGHT WIDTH G_GRPH2CHAR CVTREPORTVERTICALP Header Environment Report field Group Push button Radio button Check box SAY Expresi Campo GET Campo Campo Emergente Picture Variable de informe n Inv Control num Controlador de impresora Datos de fuente OBJTYPE: ATSIGNL Estos objetos son nuevos para plataforma o se han modificado m s recientemente en Estos objetos son nuevos para Estos objetos se han modificado m s recientemente en tpselect Transportador de Visual FoxPro tpselect @ 8.154,2.600 GET xsel PICTURE "@&N" FROM tparray SIZE 17.500,68.875 DEFAULT 1 FONT m.g_foxfont, m.g_foxfsize VALID toggle() Deseleccione los elementos que desee transportar. |?U0@ @*VT \!\<Aceptar;\?\<Cancelar Variable Expresi n/Instrucci tpselect tpselect Geneva Transportador de Visual FoxPro tpselect @ 8.154,2.600 GET xsel PICTURE "@&N" FROM tparray SIZE 16.000,78.875 DEFAULT 1 FONT m.g_foxfont, m.g_foxfsize VALID toggle() Geneva Deseleccione los elementos que Geneva Geneva desee transportar. Geneva @*VT \!\<Aceptar;\?\<Cancelar Geneva Geneva Variable Geneva Expresi n/Instrucci Geneva tpselect tpselect Transportador de Visual FoxPro tpselect @ 8,1 GET xsel PICTURE "@&N" FROM tparray SIZE 13,72 DEFAULT 1 VALID toggle() COLOR SCHEME 6 Deseleccione los elementos que desee transportar. @*VT \!\<Aceptar;\?\<Cancelar Expresi n/Instrucci Variable tpselect TPARRAY TPCANCEL FROMPLAT TOPLAT G_SNIPPETS G_NEWOBJECTS PTEXT TPSELECT G_SMFACE G_SMSIZE G_TDLGFACE G_TDLGSIZE G_TDLGSTYLE OKVALID WREADDEAC G_SMSTY1 G_TDLGBTN TPARRAY G_CHECKMARK TPCANCEL G_TPSELCNT TPARRAY G_TPSELCNT ISENVIRON TPARRAYe OTYPE OBJTYPE/ ESCAPEv TRBETv COMPATIBLEv DEVICEv READBORDERv STATUSv UDFPARMSv TOPICv HELPv .DBFC CHR(254)+" Transporter" HELP Transporter .HLPC Transporter Dialog HELP Transporter Dialog FIELDS FIELDSv MEMOWIDTHv CURSORv CONSOLEv BELLv EXACTv DECIMALSv FIXEDv PRINTv UNIQUEv SAFETYv EXCLUSIVEv COLLATEv machine ESCAPE TRBETWEEN DEVICE RBORD STATUS CURRAREA UDFPARMS MTOPIC MFIELDSTO FIELDS MEMOWIDTH CURSOR CONSOL EXACT FIXED PRINT UNQSET SAFETY EXCLUSIVE VERSNUM MCOLLATE ON ERROR &onerror SET FIELDS TO &mfieldsto SET DEVICE TO &device SET UDFPARMS TO &udfparms SET TOPIC TO &mtopic SET COLLATE TO "&mcollate" CANCAFTER G_20ALIAS G_STATUS G_TEMPALIAS G_FROMOBJONLYALIAS G_BOXEDITEMSALIAS G_SCRNALIAS WRITERESULT CONSOL ESCAPE FIELDS EXACT PRINT FIXED TRBETWEEN UNQSET RBORD STATUS DECI MEMOWIDTH VERSNUM G_TEMPINDEX CURRAREA DEACTTHERM CURSOR SAFETY TALKSET EXCLUSIVE temp1 PLATFORMS LOOP THERMSTEP G_FILETYPE G_20ALIAS G_SCRNALIAS G_SCRNDBF UPDTHERM PLATFORM DISTINCT PLIST G_TEMPALIAS DOCREATE OBJTYPE OBJCODE G_UPDENVIRON OUTPUTORD TEMP1 G_MERCURY WORDNUMa FROMCP VERSNUMn FROMCP VERSNUM WINDOWS #DOSOBJ #WINOBJ #MACOBJ #UNIXOBJ WINDOWS STRG PLAT_ARRY G_TOPLATFORM4 ** ERRORC OTYPE PFORM IN_REC RETVAL OBJPOS GETOBJPOS PLATFORM OBJTYPE OBJCODE PFORM OBJCOUNT RETVAL PLATFORM OBJTYPE MS Sans Serif Geneva MS Sans Serif Geneva Courier New Courier G_FONTMAP INFACE INSIZE INSTYLE OUTFACE OUTSIZE OUTSTYLE WIN2MAC ASTERISK AOFF G_FONTMAP THEFACE THESIZE THESTYLE MAPFONT FONTFACE FONTSIZE NUM2STYLE FONTSTYLE STYLE2NUM= SP_POS ISQUOTE= SP_POS ISQUOTE# STRGA CHARU THEFONT G_FONTAVAILr PENRED PENGREEN PENBLUEP la aserci CONDITION transprt, opendbfS! doupdate converttype~& setversionh, settocp^- import". graphictochar chartographic graphictographic updatescreen updatereportaF updenviron convertproject newchartographic newgraphictochar newgrphtogrph newbands allgraphictochar3l allchartographic allgrphtogrphcu cvrt102frx cvrtfbprpt cvrt102lbx cvrtfbplbl initbandss bldbreakexp bldbreaks( blddetail addtotal litexist getlitexpr makebandk maketext makefield; getheading@ linesforheadingC howmanyheadings) fld_head_exist totals_exist center_colu evalimportexpr getoldreporttype getoldlabeltype mapbuttonx scatterbuttons findlikevpos findlikehpos` makecharfit allenvirons allothers fillininfo adjrptfloat adjrptsuppress adjrptresetq getcharsuppress suppressblanklines allgroups rptconvertO rptobjconvert getbandindex bandinfo clonebandf resizeband bandposi emptyband getbandcode. grphrptcvt getbandnum} gettextwidthN cvtreportverticalj cvtreporthorizontal+ cvtrptlines mergelabelobjects labelobjmerge addlabelblankso linesbetween labelbands labellinest calcpositionsq calcwindowdimensions findwiderobjects adjhpos>& repoobjectsO( adjitemsinboxes itemsinboxesK2 findothersonline^? adjinvbtns adjpostinv findalignend stretchlinestoborders joinlines joinhorizontal joinvertical meetboxchar zapboxchar addjoin rejoinboxes_s joinlinewidth getlastobjectline4| adjobjcode getwindfont adjheightandwidth columnar dossize adjbitmapctrld adjcolors rgbtoxf adjpen adjfontp commonfont convertcolorpairX getcolor num2style2 style2num# adjtext adjbox# getlinewidth horizbutton maxbtnwidthn getobjwidth getobjheight4 getrightmost getlowest docreatew makecursor addgraphicallabelgroups updatelabeldata platformdefaults converter updateversion synchtime stampvalT shiftl shiftr emptyplatform structdialog curpos scxfrxdialog% dfltplat, makepictU transprmpt rdvalid deacclau showclau-# scrnctrl1' enableprocE' pvalid starttherm thermfnamex) partialfname acttherm updtherm deacttherm$< errorhandler`< cleanwind errshow@? juststem strippathyE isobject isreptobject isgraphobj isenviron>G IsNewerEnvkG hasrecords setctrl setrptfont askfont7Q is20scx is20frx is20lbx getsnipflag match wordnum addbs justfname justpath forceext cvtlong cvtshortw_ cvtbyte obj2basefont versioncap blackboxeb selectobj c initsel addsel isselected9l assemble type2namejp cleanpict tpselect(v toggle* okvalid wreaddeac EnvSelect outputord_ putwinmsg setall cleanup writeresultV versnum> cptrans] cptcond setfromcpn oktransport* iserrormsga boxjoin getobjpos initfontmap' mapfont replfont make2d make3d addquoteY isquote fontavail fixpen@ assert PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 COMMENT Class 0 WINDOWS _QZ50TVBJU 553030248 WINDOWS _QZ50TVA4X 553030248 WINDOWS _QZ50TVA75 553030248 WINDOWS _QZ50TVA9N 553030248G WINDOWS _QZ50TVADU 553030248M WINDOWS _QZ50TVAHG 553030248F WINDOWS _QZ50TVAJY 553030248? WINDOWS _QZ50TVAMG 5530302487 WINDOWS _QZ50TVAOY 553030248/ WINDOWS _QZ50TVAR6 553030248) WINDOWS _QZ50TVATP 553030248# WINDOWS _QZ50TVAWH 553030248 WINDOWS _QZ50TVAZT 553030248 WINDOWS _QZ50TVB21 553030248 WINDOWS _QZ50TVB4J 553030248 WINDOWS _QZ50TVB6R 553030249 WINDOWS _QZ50TVB99 553030249 WINDOWS _QZ50TVBC1 553030249 WINDOWS _QZ50TVBEU 553030249 WINDOWS _QZ50TVBHM 553030249 COMMENT RESERVED WINDOWS _QZ50TW09G 553030272 WINDOWS _QZ50TVZI6 553030272g WINDOWS _QZ50TVZL9 553030272` WINDOWS _QZ50TVZPF 553030272S WINDOWS _QZ50TVZT1 553030272F WINDOWS _QZ50TVZXH 5530302738 WINDOWS _QZ50TW01D 553030273) WINDOWS _QZ50TW03C 553030273# WINDOWS _QZ50TW05A 553030273 WINDOWS _QZ50TW078 553030273 COMMENT RESERVED VERSION = 0.029 !Arial, 0, 9, 5, 15, 12, 13, 3, 0 therm2 Pixels ..\samples\ ..\samples\ Class thermometer therm2 \Top = 122 Left = 378 Height = 17 Width = 1 BorderColor = 255,255,255 Name = "Shape18" therm2. Shape18 shape shape [Top = 122 Left = 16 Height = 16 Width = 1 BorderColor = 128,128,128 Name = "Shape17" therm2. Shape17 shape shape \Top = 138 Left = 16 Height = 1 Width = 363 BorderColor = 255,255,255 Name = "Shape16" therm2. Shape16 shape shape \Top = 122 Left = 16 Height = 1 Width = 362 BorderColor = 128,128,128 Name = "Shape15" therm2. Shape15 shape shape |AutoSize = .F. FontBold = .T. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. WordWrap = .F. DefTop = DefLeft = DefHeight = DefWidth = Alignment = 0 BackStyle = 1 BorderStyle = 0 Caption = "Etiqueta1" DragIcon = ..\vfp\ DragMode = 0 Height = 13 HelpContextID = 0 Left = 170 MousePointer = 0 Tag = "" Top = 50 Visible = .T. Width = 0 ReleaseErase = .F. ForeColor = 255,255,255 BackColor = 128,128,128 BaseClass = "Label" ParentClass = "" ClassLibrary = "" Class = "Label" ZOrderSet = 24 Name = "lblPercentage4" therm2. lblPercentage4 label label pAutoSize = .F. FontBold = .T. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. WordWrap = .F. DefTop = DefLeft = DefHeight = DefWidth = Alignment = 0 BackStyle = 1 BorderStyle = 0 Caption = "0%" DragIcon = ..\vfp\ DragMode = 0 Height = 13 HelpContextID = 0 Left = 190 MousePointer = 0 Tag = "" Top = 50 Visible = .T. Width = 16 ReleaseErase = .F. ForeColor = 0,0,0 BackColor = 192,192,192 BaseClass = "Label" ParentClass = "" ClassLibrary = "" Class = "Label" ZOrderSet = 23 Name = "lblPercentage3" therm2. lblPercentage3 label label FontBold = .T. FontName = "MS Sans Serif" FontSize = 8 WordWrap = .F. BackStyle = 0 Caption = "" Height = 16 Left = 18 Top = 27 Width = 362 BackColor = 192,192,192 Name = "lblTask" pipercentage ibasis ccurrenttask iprogress shpthermbarmaxwidth cthermref *complete *update *settitle shape Shape1 thermometer. therm2. lblTitle2 label label ScaleMode = 3 Height = 87 Width = 395 DoCreate = .T. AutoCenter = .T. BorderStyle = 0 Caption = "" ControlBox = .F. Closable = .F. MaxButton = .F. MinButton = .F. Movable = .F. Visible = .T. AlwaysOnTop = .F. BackColor = 192,192,192 ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = (322) cthermref = ('') Name = "thermometer" MTop = 0 Left = 0 Height = 88 Width = 396 BackStyle = 0 Name = "Shape1" therm2. lblTask2 label label Top = 48 Left = 17 Height = 16 Width = 0 BorderStyle = 0 FillStyle = 0 BackColor = 128,128,128 FillColor = 128,128,128 ZOrderSet = 20 Name = "shpThermBar2" therm2. shpThermBar2 shape shape Wccurrenttask2 ibasis2 ipercentage2 iprogress2 *update2 *complete2 *settitle2 Completado. &cThermRef = .NULL. CTASK ISECONDS UPDATE IBASIS CTHERMREF THISFORM IPROGRESS CTASK CCURRENTTASK IBASIS IPERCENTAGE IAVGCHARWIDTH LBLPERCENTAGE FONTNAME FONTSIZE FONTBOLD FONTITALIC WIDTH SHPTHERMBARMAXWIDTH SHPTHERMBAR LBLPERCENTAGE2 CAPTION LBLTASK1 CTITLE LBLTITLE CAPTION CWINTITLE CTITLE IBASIS IINTERVAL CAPTION LBLTITLE complete, updateK settitle Init. PROCEDURE update2 * m.iProgress2 is the percentage complete of the top level bar, or, * if Init() was passed * an m.iBasis2 value, is used to calculate the percentage * m.cTask is displayed on the second line of the window parameters m.iProgress2, m.cTask if parameters()<>0 this.iProgress2=IIF(m.iProgress2 = 0, 0,max(THIS.iProgress2,m.iProgress2)) endif if parameters() >= 2 * If we're specifically passed a null string, clear the current task, * otherwise leave it alone this.cCurrentTask2 = m.cTask endif if !empty(this.iBasis2) m.iPercentage2 = int(this.iProgress2/this.iBasis2*100) m.iPercentage2 = this.iProgress2 endif m.iPercentage2 = min(100,max(0,m.iPercentage2)) if m.iPercentage2 <> this.iPercentage2 if len(alltrim(str(m.iPercentage2,3)))<>len(alltrim(str(this.iPercentage2,3))) iAvgCharWidth=fontmetric(6,this.lblPercentage3.FontName, ; this.lblPercentage3.FontSize, ; iif(this.lblPercentage3.FontBold,'B','')+ ; iif(this.lblPercentage3.FontItalic,'I','')) this.lblPercentage3.Width=txtwidth(alltrim(str(m.iPercentage2,3)) + '%', ; this.lblPercentage3.FontName,this.lblPercentage3.FontSize, ; iif(this.lblPercentage3.FontBold,'B','')+ ; iif(this.lblPercentage3.FontItalic,'I','')) * iAvgCharWidth this.lblPercentage3.Left=int((this.shpThermBarMaxWidth- ; this.lblPercentage3.Width) / 2)+this.shpThermBar2.Left-1 this.lblPercentage4.Left=this.lblPercentage3.Left endif this.iPercentage2 = m.iPercentage2 this.shpThermBar2.Width = int((this.shpThermBarMaxWidth)*this.iPercentage2/100) this.lblPercentage3.Caption = alltrim(str(m.iPercentage2,3)) + '%' this.lblPercentage4.Caption = this.lblPercentage3.Caption if this.shpThermBar2.Left + this.shpThermBar2.Width -1 >= ; this.lblPercentage4.Left if this.shpThermBar2.Left + this.shpThermBar2.Width - 1 >= ; this.lblPercentage4.Left + this.lblPercentage3.Width - 1 this.lblPercentage4.Width = this.lblPercentage3.Width else this.lblPercentage4.Width = ; this.shpThermBar2.Left + this.shpThermBar2.Width - ; this.lblPercentage4.Left - 1 endif else this.lblPercentage4.Width = 0 endif endif if ! this.lblTask2.Caption == this.cCurrentTask2 this.lblTask2.Caption = this.cCurrentTask2 endif ENDPROC PROCEDURE complete2 * This is the default complete message #define THERMCOMPLETE_LOC "Completado." parameters m.cTask private iSeconds if parameters() = 0 m.cTask = THERMCOMPLETE_LOC endif * this.Show this.Update2(iif(this.iBasis <> 0, this.iBasis, 100), m.cTask) m.iSeconds=seconds() + 1 do while seconds() < m.iSeconds && wait a sec enddo if !empty(this.cThermRef) m.cThermRef = this.cThermRef &cThermRef = .NULL. release thisform endif ENDPROC PROCEDURE settitle2 *- set the lbltitle2 caption PARAMETER cTitle this.lblTitle2.Caption = iif(empty(m.cTitle),'',m.cTitle) ENDPROC PROCEDURE Init *- (c) Microsoft Corporation 1995 PARAMETERS cWinTitle, ; cTitle, iBasis, iInterval, ; cTitle2, iBasis2 *- do parent class Init Thermometer::Init(cWinTitle, cTitle, iBasis, iInterval) this.lblTitle2.Caption = iif(empty(m.cTitle2),'',m.cTitle2) this.iBasis2 = iif(empty(m.iBasis2),0,m.iBasis2) ENDPROC <FontBold = .T. AutoSize = .F. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. WordWrap = .F. DefTop = DefLeft = DefHeight = DefWidth = Alignment = 0 BackStyle = 0 BorderStyle = 0 Caption = "" DragMode = 0 Height = 16 HelpContextID = 0 Left = 16 MousePointer = 0 Tag = "" Top = 10 Visible = .T. Width = 362 ReleaseErase = .F. ForeColor = 0,0,0 BaseClass = "Label" ParentClass = "" ClassLibrary = "" Class = "Label" ZOrderSet = 22 Name = "lblTitle2" ;FontBold = .T. AutoSize = .F. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. WordWrap = .F. DefTop = DefLeft = DefHeight = DefWidth = Alignment = 0 BackStyle = 0 BorderStyle = 0 Caption = "" DragMode = 0 Height = 16 HelpContextID = 0 Left = 16 MousePointer = 0 Tag = "" Top = 27 Visible = .T. Width = 362 ReleaseErase = .F. ForeColor = 0,0,0 BaseClass = "Label" ParentClass = "" ClassLibrary = "" Class = "Label" ZOrderSet = 21 Name = "lblTask2" shape shape Shape5 thermometer. yTop = 47 Left = 17 Height = 15 Width = 362 BorderStyle = 0 FillStyle = 0 FillColor = 192,192,192 Name = "Shape5" sprtherm.vcx shape !Arial, 0, 9, 5, 15, 12, 13, 3, 0 thermometer Pixels ..\wzimport\ ..\wzimport\ Class thermometer XTop = 3 Left = 3 Height = 81 Width = 1 BorderColor = 128,128,128 Name = "Shape10" thermometer. Shape10 shape shape XTop = 1 Left = 1 Height = 1 Width = 393 BorderColor = 255,255,255 Name = "Shape2" thermometer. Shape2 shape shape WTop = 1 Left = 1 Height = 85 Width = 1 BorderColor = 255,255,255 Name = "Shape3" thermometer. Shape3 shape shape YTop = 86 Left = 1 Height = 1 Width = 394 BorderColor = 128,128,128 Name = "Shape4" thermometer. Shape4 shape shape YTop = 1 Left = 394 Height = 86 Width = 1 BorderColor = 128,128,128 Name = "Shape6" thermometer. Shape6 shape shape YTop = 84 Left = 3 Height = 1 Width = 389 BorderColor = 255,255,255 Name = "Shape7" thermometer. Shape7 shape shape YTop = 3 Left = 392 Height = 82 Width = 1 BorderColor = 255,255,255 Name = "Shape8" thermometer. Shape8 shape shape XTop = 3 Left = 3 Height = 1 Width = 389 BorderColor = 128,128,128 Name = "Shape9" thermometer. Shape9 shape shape [Top = 45 Left = 378 Height = 17 Width = 1 BorderColor = 255,255,255 Name = "Shape14" thermometer. Shape14 shape shape [Top = 61 Left = 16 Height = 1 Width = 363 BorderColor = 255,255,255 Name = "Shape12" thermometer. Shape12 shape shape ZTop = 45 Left = 16 Height = 16 Width = 1 BorderColor = 128,128,128 Name = "Shape13" thermometer. Shape13 shape shape [Top = 45 Left = 16 Height = 1 Width = 362 BorderColor = 128,128,128 Name = "Shape11" thermometer. Shape11 shape shape FontBold = .T. FontName = "MS Sans Serif" FontSize = 8 BackStyle = 1 Caption = "Etiqueta1" Height = 13 Left = 170 Top = 47 Width = 0 ForeColor = 255,255,255 BackColor = 128,128,128 Name = "lblPercentage2" thermometer. lblPercentage2 label label FontBold = .T. FontName = "MS Sans Serif" FontSize = 8 BackStyle = 1 Caption = "0%" Height = 13 Left = 190 Top = 47 Width = 16 BackColor = 192,192,192 Name = "lblPercentage" thermometer. lblPercentage label label Top = 46 Left = 17 Height = 15 Width = 0 BackStyle = 1 BorderStyle = 0 DrawMode = 13 FillStyle = 0 BackColor = 0,0,0 FillColor = 128,128,128 Name = "shpThermBar" thermometer. shpThermBar shape shape label label lblTitle thermometer. lblTask label label FontBold = .T. FontName = "MS Sans Serif" FontSize = 8 WordWrap = .F. BackStyle = 0 Caption = "" Height = 16 Left = 18 Top = 10 Width = 362 Name = "lblTitle" thermometer. IPROGRESS2 CTASK CCURRENTTASK2 IBASIS2 IPERCENTAGE2 IAVGCHARWIDTH LBLPERCENTAGE3 FONTNAME FONTSIZE FONTBOLD FONTITALIC WIDTH SHPTHERMBARMAXWIDTH SHPTHERMBAR2 LBLPERCENTAGE4 CAPTION LBLTASK2 Completado. &cThermRef = .NULL. CTASK ISECONDS UPDATE2 IBASIS CTHERMREF THISFORM1 CTITLE THIS LBLTITLE2 CAPTION CWINTITLE CTITLE IBASIS IINTERVAL CTITLE2 IBASIS2 THERMOMETER THIS LBLTITLE2 CAPTION update2, complete2 settitle2 Init7 PROCEDURE complete * This is the default complete message #define THERMCOMPLETE_LOC "Completado." parameters m.cTask private iSeconds if parameters() = 0 m.cTask = THERMCOMPLETE_LOC endif * this.Show this.Update(iif(this.iBasis <> 0, this.iBasis, 100), m.cTask) m.iSeconds=seconds() + 1 do while seconds() < m.iSeconds && wait a sec enddo if !empty(this.cThermRef) m.cThermRef = this.cThermRef &cThermRef = .NULL. release thisform endif ENDPROC PROCEDURE update * m.iProgress is the percentage complete, or, if Init() was passed * an m.iBasis value, is used to calculate the percentage * m.cTask is displayed on the second line of the window parameters m.iProgress, m.cTask if parameters()<>0 this.iProgress=IIF(m.iProgress = 0, 0, max(THIS.iProgress,m.iProgress)) endif if parameters() >= 2 * If we're specifically passed a null string, clear the current task, * otherwise leave it alone this.cCurrentTask = m.cTask endif if !empty(this.iBasis) m.iPercentage = int(this.iProgress/this.iBasis*100) m.iPercentage = this.iProgress endif m.iPercentage = min(100,max(0,m.iPercentage)) if m.iPercentage <> this.iPercentage if len(alltrim(str(m.iPercentage,3)))<>len(alltrim(str(this.iPercentage,3))) iAvgCharWidth=fontmetric(6,this.lblPercentage.FontName, ; this.lblPercentage.FontSize, ; iif(this.lblPercentage.FontBold,'B','')+ ; iif(this.lblPercentage.FontItalic,'I','')) this.lblPercentage.Width=txtwidth(alltrim(str(m.iPercentage,3)) + '%', ; this.lblPercentage.FontName,this.lblPercentage.FontSize, ; iif(this.lblPercentage.FontBold,'B','')+ ; iif(this.lblPercentage.FontItalic,'I','')) * iAvgCharWidth this.lblPercentage.Left=int((this.shpThermBarMaxWidth- ; this.lblPercentage.Width) / 2)+this.shpThermBar.Left-1 this.lblPercentage2.Left=this.lblPercentage.Left endif this.iPercentage = m.iPercentage this.shpThermBar.Width = int((this.shpThermBarMaxWidth)*this.iPercentage/100) this.lblPercentage.Caption = alltrim(str(m.iPercentage,3)) + '%' this.lblPercentage2.Caption = this.lblPercentage.Caption if this.shpThermBar.Left + this.shpThermBar.Width -1 >= ; this.lblPercentage2.Left if this.shpThermBar.Left + this.shpThermBar.Width - 1 >= ; this.lblPercentage2.Left + this.lblPercentage.Width - 1 this.lblPercentage2.Width = this.lblPercentage.Width else this.lblPercentage2.Width = ; this.shpThermBar.Left + this.shpThermBar.Width - ; this.lblPercentage2.Left - 1 endif else this.lblPercentage2.Width = 0 endif endif if ! this.lblTask.Caption == this.cCurrentTask this.lblTask.Caption = this.cCurrentTask endif ENDPROC PROCEDURE settitle *- set the lbltitle caption PARAMETER cTitle this.lblTitle.Caption = iif(empty(m.cTitle),'',m.cTitle) ENDPROC PROCEDURE Init *- (c) Microsoft Corporation 1995 * m.cTitle is displayed on the first line of the window * m.iBasis is used to calculate the percentage complete * m.iInterval is the frequency used for updating the thermometer parameters cWinTitle, cTitle, iBasis, iInterval THIS.caption = iif(empty(m.cWinTitle), "", m.cWinTitle) this.lblTitle.Caption = iif(empty(m.cTitle),'',m.cTitle) this.iBasis = iif(empty(m.iBasis),0,m.iBasis) ENDPROC .shape4.Width = 393 shape4.Height = 1 shape4.Left = 1 shape7.Width = 392 shape7.Height = 1 shape7.Left = 3 shape14.Width = 1 shape14.Height = 17 shape12.Width = 363 shape12.Height = 1 shape13.Width = 1 shape13.Height = 16 shape11.Width = 362 shape11.Height = 1 shpthermbar.Width = 0 shape5.Width = 364 shape5.Height = 15 shape1.Width = 397 shape1.Left = 0 shape1.Top = 0 shape9.Width = 391 shape9.Height = 1 shape9.Left = 3 shape9.Top = 3 shape8.Width = 1 shape8.Left = 394 shape8.Top = 3 shape6.Width = 1 shape6.Left = 395 shape6.Top = 1 shape3.Width = 1 shape3.Left = 1 shape3.Top = 1 shape2.Width = 393 shape2.Height = 1 shape2.Left = 1 shape2.Top = 1 shape10.Width = 1 shape10.Left = 3 shape10.Top = 3 LBLPERCENTAGE2.Width = 1 LBLPERCENTAGE2.Height = 13 LBLPERCENTAGE.Width = 16 LBLPERCENTAGE.Height = 13 lbltask.Width = 362 lbltask.Height = 16 lbltitle.Width = 362 lbltitle.Height = 16 ScaleMode = 3 Height = 150 Width = 397 DoCreate = .T. Caption = "" Visible = .T. ccurrenttask2 = ('') ibasis2 = (0) ipercentage2 = (0) iprogress2 = (0) ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = (322) cthermref = ('') Name = "therm2" shape1.Height = 150 shape1.Name = "shape1" shape5.Top = 124 shape5.Left = 16 shape5.Name = "shape5" lbltitle.BackStyle = 0 lbltitle.Caption = "" lbltitle.Left = 16 lbltitle.Top = 84 lbltitle.Visible = .T. lbltitle.Name = "lbltitle" lbltask.BackStyle = 0 lbltask.Caption = "" lbltask.Left = 16 lbltask.Top = 101 lbltask.Name = "lbltask" shpthermbar.Top = 122 shpthermbar.Left = 17 shpthermbar.Height = 16 shpthermbar.FillColor = 128,128,128 shpthermbar.Name = "shpthermbar" lblpercentage.BackStyle = 0 LBLPERCENTAGE.Caption = "0%" LBLPERCENTAGE.Left = 190 LBLPERCENTAGE.Top = 124 lblpercentage.Name = "lblpercentage" lblpercentage2.BackStyle = 0 LBLPERCENTAGE2.Caption = "Etiqueta1" LBLPERCENTAGE2.Left = 169 LBLPERCENTAGE2.Top = 124 lblpercentage2.Name = "lblpercentage2" shape11.Top = 48 shape11.Left = 16 shape11.Name = "shape11" shape13.Top = 48 shape13.Left = 16 shape13.Name = "shape13" shape12.Top = 64 shape12.Left = 16 shape12.Name = "shape12" shape14.Top = 48 shape14.Left = 378 shape14.Name = "shape14" shape9.Name = "shape9" shape8.Height = 144 shape8.Name = "shape8" shape7.Top = 146 shape7.Name = "shape7" shape6.Height = 148 shape6.Name = "shape6" shape4.Top = 148 shape4.Name = "shape4" shape3.Height = 147 shape3.Name = "shape3" shape2.Name = "shape2" shape10.Height = 143 shape10.Name = "shape10" FmtConverter EXACTv m.csrcfileb SET EXACT &oldexact No se puede abrir CC SET EXACT &oldexact dBASE IV Generic Design File Version 1.0 LBL|FRM|FRX|LBX LBL|LBX SET EXACT &oldexact SET EXACT &oldexact Actualizando el informe CC SET EXACT &oldexact oConvObjectb SET EXACT &oldexact SET EXACT &oldexact SET EXACT &oldexact El tipo de ID de archivo es incorrecto para un archivo .SCR o .LBL de dBASE IV. SET EXACT &oldexact SET EXACT &oldexact unique CLEAR READC PUSH KEYC ON KEY LABEL PGUP DO dopgup ON KEY LABEL PGDN DO dopgdn ON KEY LABEL CTRL+PGUP DO ctlpgup ON KEY LABEL CTRL+PGDN DO ctlpgdn IF EOF() GO BOTTOM ENDIF mignavpr.txt SET EXACT &oldexact unique SET EXACT &oldexact unique Converted dBASE IV WordWrap band. _bandrecCC iif(mod(reccnt,CC ) = 0, =1,0,1), QBE__ QBE__ QBE__ newfile.pictureb newfile.commentb QBE__ QBE__ newfile.commentb DATE() TIME() RECNO() _pageno 'converted RECNO field' TRANSFORM(C SET EXACT &oldexact RECCNT reccnt workareas[m.warea]b QBE__ DELETE FILE &tempname..dbf DELETE FILE &tempname..fpt DELETE FILE &tempname..dbf SET EXACT &oldexact. CSRCFILE OCONV TEMPSTR CFMTCONVERTERCLASS OLDEXACT OLDALIAS FHANDLE FSIZE FALLDOWN JUSTFNAME ROOTNAME CPATHNAME LRETVAL JUSTSTEM ADDBS JUSTPATH JUSTEXT LISTHERE NCTR9 CTMPEXT CFEXT CMEXT GOTHERM SETTITLE PARTIALFNAME GTRANSPORT GASHOWME OCONVOBJECT APARMS LHADERROR CONVERTER FILEVERS FILETYPE NUM_BANDS TARGETNAME OK2NUKE TEMPNAME PLATFORM UNIQUEID TIMESTAMP OBJTYPE OBJCODE HEIGHT WIDTH STYLE PICTURE ORDER COMMENT ENVIRON BOXCHAR FILLCHAR PENRED PENGREEN PENBLUE FILLRED FILLGREEN FILLBLUE PENSIZE PENPAT FILLPAT FONTFACE FONTSTYLE FONTSIZE RULER RULERLINES GRIDV GRIDH SCHEME SCHEME2 COLORPAIR LOTYPE RANGELO HITYPE RANGEHI WHENTYPE WHEN VALIDTYPE VALID ERRORTYPE ERROR MESSTYPE MESSAGE SHOWTYPE SHOW ACTIVTYPE ACTIVATE DEACTTYPE DEACTIVATE PROCTYPE PROCCODE SETUPTYPE SETUPCODE FLOAT CLOSE MINIMIZE BORDER SHADOW CENTER REFRESH DISABLED SCROLLBAR ADDALIAS INITIALVAL INITIALNUM SPACING CURPOS NEWFILE MIGNAVPR STRETCH STRETCHTOP BOTTOM SUPTYPE SUPREST NOREPEAT RESETRPT PAGEBREAK COLBREAK RESETPAGE GENERAL DOUBLE SWAPHEADER SWAPFOOTER EJECTBEFOR EJECTAFTER PLAIN SUMMARY OFFSET TOPMARGIN BOTMARGIN TOTALTYPE RESETTOTAL RESOID SUPALWAYS SUPOVFLOW SUPRPCOL SUPGROUP SUPVALCHNG SUPEXPR TEMPDBF ISRECNOFLD UPDATE NUMFIELDS WORD2NUM READSTRING LINECOUNT BAND_TYPE WHICHEDITR GROUP_TYPE NUM_RECS GROUP_EXPR KLUDGENAME BANDNUM ISOPEN EACHPAGE NEWPAGE UNIQUE FIELDNAME DATATYPE FIELDTYPE FIELDPIC FIELDPFUNC CALIAS NALIASPOS AVLINE WORKAREAS FIELDNUM XTRIM SUPPREPEAT ISHIDDEN SUMM_FIELD SUMM_OP RESET_WHEN PREDEFTYP DBFNAME FIELDPICT PICT_FUNC DELIMITER1 DELIMITER2 ISEDIT CHOICELIST SCROLWIDTH EXPRVAR BAND_ID GL_RULER BOOKMARK BANDMESSG DUMP_BAND FIXVERT WAREA SCRHEIGHT NMAXWIDTH NMAXHEIGHT CPTAG BANDHEIGHT HASOBJECTS BANDSTART REPWIDTH COMPLETE WORDWRAPC BANDNUM BANDSTART FILETYPE NEWFILE OBJTYPE HEIGHT COMMENT DMPRAPBAND DUMPLAYOUT@ BANDNUM BANDSIZE WORD2NUM FHANDLE WHOLEBAND MARKER PARAGRAPH LINETEXT LINENO LINEMARK FIELDMARK COLUMN FIELDWIDTH LMARGIN LINDENT GOTOFRMFLD NEWFILE VPOS BANDSTART FLOAT WIDTH OBJTYPE OBJCODE HEIGHT] PSEEKREC SEEKREC NUM_BANDS NEWFILE OBJTYPE "Fila de texto", tipo de valor incorrecto! BANDNUM BANDSIZE WORD2NUM FHANDLE BANDEND BANDVERSN FILETYPE NEWFILE WIDTH GOTHERM UPDATE FSIZE TEMPDBF GOTOFRMFLD HPOS BANDSTART WINFO OBJCODE SCROLLBAR HEIGHT BOXDLENGTH BOXDESCRPT OBJTYPE BOXCHAR FILLCHAR COLORPAIR BITS2COLOR SIZE_ROW THIS_ROW THIS_COL SCANNED PACKED_ROW VALUE_TYPE TEXTLENGTH VALUE ATTR_CHANGE BYTESREAD NEWCOLOR NEWSTYLE STYLE CVTLINE AVLINE CVTSTYLET SET EXACT &oldexact. field(1,'newfile')b field(1,'tempdbf')b DELETE FILE &tempname..dbf DELETE FILE &tempname..fpt m.targetnameb DELETE FILE &m.targetname. DELETE FILE &m.memoname. PMESSAGE FHANDLE OLDALIAS NEWFILE TEMPDBF TARGETNAME MEMONAME FILETYPE, BYTESc PHANDLE STRLENGTH WORD2NUM XTRIM PSTRING BIURL STYLEWORD RETSTRING STYLESSTRING BITVAL ISBITSET BGR+BGR + U* ATTRWORD RETSTRING COLORSTRING BITVAL ISBITSETD BITFIELD BITVALe existe. Desea sobrescribir? FILENAME NRESULT JUSTFNAME dump_band dmprapband gotofrmfld dumplayout falldown word2num readstring xtrim_a cvtstyle bits2color isbitsetje ok2nuke *- procedures & code to support navigation *- of migrated DB4 screen files. This code *- is copied to the PROCCODE memo field of *- the SCX file. *- (c) Microsoft Corporation 1995 #DEFINE C_BEGFILEMSG_LOC [Beginning of file.] #DEFINE C_ENDFILEMSG_LOC [End of file.] #DEFINE C_ALERTTITL_LOC "Add Records" #DEFINE C_ASKADDMSG_LOC "Do you want to add a new record to the table?" #DEFINE C_BUTTONP "@*HT \<Yes;\<No" POP KEY PROCEDURE dopgup IF BOF() GO TOP SKIP -1 IF BOF() WAIT WINDOW C_BEGFILEMSG NOWAIT GO TOP ENDIF ENDIF SHOW GETS PROCEDURE dopgdn IF EOF() OR RECC() = 0 DO migadd SKIP IF EOF() DO migadd ENDIF ENDIF SHOW GETS RETURN PROCEDURE ctlpgup *- handle Ctl+PGUP GO TOP SHOW GETS RETURN PROCEDURE ctlpgdn *- handle ctl+PGDN IF EOF() OR RECC() = 0 DO migadd SKIP IF EOF() DO migadd ELSE GO BOTTOM ENDIF ENDIF SHOW GETS RETURN PROCEDURE migadd #REGION 0 REGIONAL m.currarea, m.talkstat, m.compstat IF SET("TALK") = "ON" SET TALK OFF m.talkstat = "ON" m.talkstat = "OFF" ENDIF m.compstat = SET("COMPATIBLE") SET COMPATIBLE FOXPLUS m.rborder = SET("READBORDER") SET READBORDER ON *- clear ON KEY LABELs that were set up PUSH KEY ON KEY LABEL PGUP ON KEY LABEL PGDN ON KEY LABEL CTRL+PGUP ON KEY LABEL CTRL+PGDN ** Windows Window definitions DO CASE CASE _WINDOWS OR _MAC IF NOT WEXIST("_qn10my1k9") DEFINE WINDOW _qn10my1k9 ; AT 5.154, 38.200 ; SIZE 9.769,59.800 ; TITLE C_ALERTTITL_LOC ; FONT "MS Sans Serif", 8 ; FLOAT ; NOCLOSE ; NOMINIMIZE ; DOUBLE ; COLOR SCHEME 5 MOVE WINDOW _qn10my1k9 CENTER ENDIF * ********************************************************* * * * * ADDREC/Windows Screen Layout * * * ********************************************************* #REGION 1 IF WVISIBLE("_qn10my1k9") ACTIVATE WINDOW _qn10my1k9 SAME ELSE ACTIVATE WINDOW _qn10my1k9 NOSHOW ENDIF @ 6.462,9.600 GET m.iaddrec ; PICTURE C_BUTTONP ; SIZE 1.769,11.667,10.000 ; DEFAULT 1 ; FONT "MS Sans Serif", 8 ; STYLE "B" ; VALID addrecv() @ 1.769,9.600 SAY C_ASKADDMSG_LOC ; SIZE 2.000,28.250, 0.000 ; FONT "MS Sans Serif", 10 ; STYLE "BT" IF NOT WVISIBLE("_qn10my1k9") ACTIVATE WINDOW _qn10my1k9 ENDIF READ CYCLE MODAL RELEASE WINDOW _qn10my1k9 CASE _DOS OR _UNIX IF NOT WEXIST("_qnd0yoc65") DEFINE WINDOW _qnd0yoc65 ; FROM INT((SROW()-10)/2),INT((SCOL()-59)/2) ; TO INT((SROW()-10)/2)+9,INT((SCOL()-59)/2)+58 ; TITLE "Add Records" ; FLOAT ; NOCLOSE ; SHADOW ; NOMINIMIZE ; DOUBLE ; COLOR SCHEME 5 ENDIF * * * ADDREC/MS-DOS Screen Layout * * #REGION 1 IF WVISIBLE("_qnd0yoc65") ACTIVATE WINDOW _qnd0yoc65 SAME ELSE ACTIVATE WINDOW _qnd0yoc65 NOSHOW ENDIF @ 6,12 GET m.iaddrec ; PICTURE "@*HT \<Yes;\<No" ; SIZE 1,11,10 ; DEFAULT 1 ; VALID addrecv() @ 2,5 SAY "Do you want to add a new record to the table?" ; SIZE 1,45, 0 IF NOT WVISIBLE("_qnd0yoc65") ACTIVATE WINDOW _qnd0yoc65 ENDIF READ CYCLE MODAL RELEASE WINDOW _qnd0yoc65 ENDCASE #REGION 0 IF EOF() GO BOTTOM ENDIF *- restore ON KEY LABELS POP KEY SET READBORDER &rborder IF m.talkstat = "ON" SET TALK ON ENDIF IF m.compstat = "ON" SET COMPATIBLE ON ENDIF * ********************************************************* * * * * _QN10MY496 m.iaddrec VALID * * * * Function Origin: * * * * From Platform: Windows * * From Screen: ADDREC, Record Number: 2 * * Variable: m.iaddrec * * Called By: VALID Clause * * Object Type: Push Button * * Snippet Number: 1 * * * ********************************************************* FUNCTION addrecv && m.iaddrec VALID #REGION 1 IF m.iaddrec = 1 IF !EMPTY(ALIAS()) APPEND BLANK ENDIF ENDIF GO BOTTOM RETURN PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 COMMENT Class WINDOWS _R5B0YB6QE 553029116 WINDOWS _R5B0YB6IC 553029116 WINDOWS _R5B0YB6JQ 553029116S WINDOWS _R5B0YB6NW 550193624, COMMENT RESERVED WINDOWS _R8Z15YKPM 553030123I WINDOWS _R8Z15YIKA 553030123t WINDOWS _R8Z15YJD7 544709714 WINDOWS _R8Z15YJXI 544709715 COMMENT RESERVED WINDOWS _R8Z15IT74 553030151 WINDOWS _R8Z15IRNR 553030138 WINDOWS _R8Z15IRZG 553030138 WINDOWS _R8Z15ISA1 550194298 WINDOWS _R8Z15ISGP 553030138 WINDOWS _R8Z15ISNX 553030138 WINDOWS _R8Z15ISWK 553030153 WINDOWS _R8Z15IT0Q 553030153 COMMENT RESERVED WINDOWS _RAG0HCNX9 553030176 WINDOWS _RAG0J9TB0 553030176= COMMENT RESERVED WINDOWS _R9J0Q1RNX 5566235780 COMMENT RESERVED WINDOWS _R8Z15XU9P 559442679U WINDOWS _R8Z15XSG1 559442679h WINDOWS _R8Z15XT7L 544709697 WINDOWS _R8Z15XTP4 544709698 COMMENT RESERVED WINDOWS _RC50MZ1KW 560029941 WINDOWS _RC50WHW6I 559440145 COMMENT RESERVED WINDOWS _RB619GDZF 560030228Y WINDOWS _RB619TBXK 560030228 WINDOWS _RB619TBY4 560030228% WINDOWS _RB70M7116 560030228 COMMENT RESERVED VERSION = 0.029 cvtlocate cvtalert.h BArial, 0, 9, 5, 15, 12, 21, 3, 0 Arial, 0, 8, 5, 14, 11, 20, 3, 0 cvtalertfrx cvtalert.h Pixels Class \<Mantener los valores de las propiedades predeterminadas de FoxPro3.0 CAPTION Init, Pixels cvtalert.h cvtalert.h cvtdlog30scx Class cvtalertfrx \<Comprobar subdirectorios CAPTION Init, cvtalert.h wPROCEDURE Init THIS.FontBold = THISFORM.SetBold() ENDPROC PROCEDURE Click HELP ID THISFORM.HelpContextID ENDPROC Top = 60 Left = 272 Height = 29 Width = 94 FontBold = .F. FontName = "Arial" FontSize = 8 Caption = "Ay\<uda" Statusbartext = "Haga clic para ver ayuda acerca de la conversi n de archivos." TabIndex = 2 Name = "cmdHelp" cvtalertfrx. cmdHelp commandbutton commandbutton Archivos \<VCX CAPTION Init, THISFORM FONTBOLD THISFORM SETBOLD Click, InitY \<Mantener los valores de las propiedades predeterminadas de FoxPro3.0 CAPTION CHKBOTHPLAT.Init, THISFORM VALUE CLICK# THISFORM VALUE CLICK THISFORM cmd1.Command1.Click, cmd1.Command2.Clickq cmdHelp.Click Directorio de seguridad: COLDDIR CBACKDIR THISFORM TXTBACKDIR REFRESH Click, BArial, 0, 9, 5, 15, 12, 13, 3, 0 Arial, 0, 8, 5, 14, 11, 12, 3, 0 cvtalert.h BArial, 0, 9, 5, 15, 12, 13, 3, 0 Arial, 0, 8, 5, 14, 11, 12, 3, 0 cvtalertpjx cvtalertfrx. commandgroup commandgroup cvtalertfrx. Pixels cvtalertscx Class cvtalertscx BArial, 0, 9, 5, 15, 12, 13, 3, 0 Arial, 0, 8, 5, 14, 11, 12, 3, 0 cvtalert.h Pixels THISFORM TXTBACKDIR ENABLED VALUE CMDBACKDIR TABSTOP READONLY CBACKDIR COMMAND1 CLICK Click, BArial, 0, 9, 5, 15, 12, 13, 3, 0 Arial, 0, 8, 5, 14, 11, 12, 3, 0 cvtalert.h PROCEDURE Click IF m.nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC PROCEDURE Command1.Init THIS.FontBold = THISFORM.SetBold() ENDPROC PROCEDURE Command1.Click LOCAL m.nfh IF nOptDev = N_DEVMODE IF EMPTY(m.cCodeFile) *- this should never happen RETURN ENDIF *- make sure file can be created m.nfh = FCREATE(m.cCodeFile) IF m.nfh = -1 *- problem creating file =MESSAGEBOX(E_BADFNAME_LOC) THISFORM.txtCodeFile.SetFocus RETURN ELSE =FCLOSE(m.nfh) ERASE (m.cCodeFile) ENDIF ENDIF THISFORM.cmd1.Value = 1 THISFORM.cmd1.Click ENDPROC PROCEDURE Command2.Init THIS.FontBold = THISFORM.SetBold() ENDPROC PROCEDURE Command2.Click THISFORM.cmd1.Value = 2 THISFORM.cmd1.Click ENDPROC lblAlertMsg label \<Mantener los valores de las propiedades predeterminadas de FoxPro3.0 CAPTION Init, cvtdlog30scx cvtalert.vcx cvtalertfrx cvtlocate cvtalert.h W!lickj 8PROCEDURE Init THIS.Caption = C_RETAIN30_LOC ENDPROC FontBold = .F. FontName = "Arial" FontSize = 8 WordWrap = .T. Caption = "" Height = 42 Left = 12 Top = 7 Width = 352 Name = "lblAlertMsg" label ,Alert displayed when converting non-projects Class cvtalertscx cvtalertpjx3 \<Convertir registros de formularios de Macintosh y Windows CAPTION Init, cvtalertscx. THISFORM HELPCONTEXTID FONTBOLD THISFORM SETBOLD Click, Init\ wPROCEDURE Click m.ncvt = 3 RELEASE THISFORM ENDPROC PROCEDURE Init THIS.FontBold = THISFORM.SetBold() ENDPROC cvtlocate. ;PROCEDURE Init THIS.caption = C_CONVERTBOTH_LOC ENDPROC Top = 62 Left = 24 Height = 25 Width = 344 FontBold = .F. FontSize = 8 Caption = "Check1" ControlSource = "m.iBothPlat" Name = "chkBothPlat" chkBothPlat checkbox checkbox cvtalert.h BArial, 0, 9, 5, 15, 12, 13, 3, 0 Arial, 0, 8, 5, 14, 11, 12, 3, 0 cvtalert30scx cvtalert.h FontBold = .F. FontName = "Arial" FontSize = 8 WordWrap = .T. Caption = "" Height = 49 Left = 24 Top = 12 Width = 352 Name = "lblAlertMsg" cvtalertscx. lblAlertMsg label label wPROCEDURE Click HELP ID THISFORM.HelpContextID ENDPROC PROCEDURE Init THIS.FontBold = THISFORM.SetBold() ENDPROC cvtalertscx. d*setbold Return logical based on OS *configurefont Set font characteristics for specific platform ScaleMode = 3 Height = 102 Width = 390 DoCreate = .T. AutoCenter = .T. BorderStyle = 2 Caption = "Converter de Visual FoxPro" Closable = .F. MaxButton = .F. MinButton = .F. WindowType = 1 AlwaysOnTop = .T. HelpContextID = 1895825429 Name = "cvtalertfrx" FONTBOLD THISFORM SETBOLD THISFORM HELPCONTEXTID Init, Clickj Top = 60 Left = 379 Height = 29 Width = 104 FontBold = .F. FontName = "Arial" FontSize = 8 Cancel = .T. Caption = "Cancelar" StatusBarText = "Click for help on converting files." TabIndex = 2 Name = "cmdCancel" Top = 142 Left = 272 Height = 29 Width = 94 FontBold = .F. FontName = "Arial" FontSize = 8 Caption = "Ay\<uda" Statusbartext = "Haga clic para ver ayuda acerca de la conversi n de archivos." TabIndex = 2 Name = "cmdHelp" cmdHelp commandbutton commandbutton Top = 101 Left = 351 Height = 25 Width = 25 Caption = "..." Enabled = .F. Statusbartext = "Seleccionar el archivo que almacenar los procedimientos si se ha seleccionado la opci n 'Conversi n visual'." TabIndex = 5 Name = "cmdCodeFile" cvtalert.h cvtalertscx. cmdCancel Pixels Class Archivo de c digo: COLDCODE CCODEFILE THISFORM TXTCODEFILE REFRESH CLOGFILE COMMAND1 ENABLED Click, PROCEDURE Click LOCAL cOldCode *- remember old one cOldCode = m.cCodeFile cCodeFile = LOWER(PUTFILE(C_SELCODEFILE_LOC,cCodeFile,"PRG")) cCodeFile = IIF(EMPTY(cCodeFile),cOldCode,SYS(2027,cCodeFile)) && in case user cancels, restore old value THISFORM.txtCodeFile.Refresh IF !EMPTY(m.cCodeFile) AND ((m.llog AND !EMPTY(m.cLogFile)) OR !m.llog) THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC cmdCodeFile commandbutton THISFORM CMDLOGFILE ENABLED VALUE CLOGFILE COMMAND1 CLICK Click, commandbutton commandbutton cvtalertscx. txtCodeFile textbox textbox cvtalertscx. cvtalertfrx Pixels FontBold = .F. FontName = "Arial" FontSize = 8 ControlSource = "m.cCodeFile" Enabled = .F. Format = "" Height = 25 InputMask = "" Left = 171 ReadOnly = .T. Statusbartext = "Especifica el archivo que almacenar el c digo de procedimiento si se ha seleccionado la opci n 'Conversi n visual'." TabIndex = 4 TabStop = .F. Top = 101 Width = 170 DisabledForeColor = 0,0,0 Name = "txtCodeFile" Top = 40 Left = 13 Height = 25 Width = 364 FontBold = .F. FontSize = 8 Caption = "Check1" ControlSource = "m.iBothPlat" DisabledBackColor = 192,192,192 Name = "chkSet30Def" cvtdlog30scx. chkSet30Def checkbox checkbox cvtdlog30scx. commandbutton :PROCEDURE Init THIS.caption = C_RECURSEDIR_LOC ENDPROC chkRecurse checkbox Pixels PROCEDURE Click IF m.nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC PROCEDURE command1.Click LOCAL m.nfh IF nOptDev = N_DEVMODE IF EMPTY(m.cCodeFile) *- this should never happen RETURN ENDIF *- make sure file can be created m.nfh = FCREATE(m.cCodeFile) IF m.nfh = -1 *- problem creating file =MESSAGEBOX(E_BADFNAME_LOC) THISFORM.txtCodeFile.SetFocus RETURN ELSE =FCLOSE(m.nfh) ERASE (m.cCodeFile) ENDIF ENDIF THISFORM.cmd1.Value = 1 THISFORM.cmd1.Click ENDPROC PROCEDURE command1.Init THIS.FontBold = THISFORM.SetBold() ENDPROC PROCEDURE command2.Click THISFORM.cmd1.Value = 2 THISFORM.cmd1.Click ENDPROC PROCEDURE command2.Init THIS.FontBold = THISFORM.SetBold() ENDPROC commandgroup commandgroup cvtalertscx. optiongroup1 optiongroup optiongroup d*setbold Determine if bold should be set, based on OS *configurefont Set font properties for form cvtalert30scx Top = 113 Left = 217 Height = 25 Width = 163 FontSize = 8 Caption = "Check1" ControlSource = "m.lRecurse" DisabledBackColor = 192,192,192 Name = "chkRecurse" checkbox cvtdlog30scx. 8PROCEDURE Init THIS.Caption = C_RETAIN30_LOC ENDPROC Top = 46 Left = 24 Height = 25 Width = 344 FontBold = .F. FontSize = 8 Caption = "Check1" ControlSource = "m.iBothPlat" DisabledBackColor = 192,192,192 Name = "chkSet30Def" BArial, 0, 9, 5, 15, 12, 13, 3, 0 Arial, 0, 8, 5, 14, 11, 12, 3, 0 THISFORM SETBOLD THISFORM cvtalert30scx. Class cvtalertpjxk Command2.Init Command2.Cl cvtalertpjx3LUE CLICK Click, Command1.Initf DPROCEDURE CHKBOTHPLAT.Init THIS.Caption = C_RETAIN30_LOC ENDPROC El nomb ScaleMode = 3 Height = 184 Width = 390 DoCreate = .T. AutoCenter = .T. BorderStyle = 2 Caption = "Converter de Visual FoxPro" Closable = .F. MaxButton = .F. MinButton = .F. FillStyle = 1 WindowType = 1 HelpContextID = 1895825429 Name = "cvtalertscx" cvtalert.h chkSet30Def checkbox checkbox formropiedades predeterminadas de Visual FoxPro 3.0 cvtalert.vcx \<Mantener los valo Class BArial, 0, 9, 5, 15, 12, 13, 3, 0 Arial, 0, 8, 5, 14, 11, 12, 3, 0 cvtalertcat cvtalert.h Pixels Class cvtalertscx cvtalertcat Height = 117 Width = 390 DoCreate = .T. Name = "cvtalert30scx" lblAlertMsg.Height = 37 lblAlertMsg.Left = 12 lblAlertMsg.Top = 7 lblAlertMsg.Width = 352 lblAlertMsg.Name = "lblAlertMsg" cmd1.Command1.Top = 5 cmd1.Command1.Left = 5 cmd1.Command1.Name = "Command1" cmd1.Command2.Top = 5 cmd1.Command2.Left = 129 cmd1.Command2.Name = "Command2" cmd1.Left = 19 cmd1.Top = 70 cmd1.Name = "cmd1" cmdHelp.Top = 75 cmdHelp.Name = "cmdHelp" cvtalert.vcx cvtalertcat textbox NOPTDEV THISFORM CMDCODEFILE ENABLED CLICK CCODEFILE COMMAND1 TXTCODEFILE TABSTOP READONLY LDEVMODE C_VISUALCONVMSG_LOC Click, option2.Messagex cvtalert.vcx txtLogFile PROCEDURE cmd1.Command1.Click THISFORM.cmd1.Value = 1 THISFORM.cmd1.Click ENDPROC PROCEDURE cmd1.Command2.Click THISFORM.cmd1.Value = 2 THISFORM.cmd1.Click ENDPROC PROCEDURE cmdHelp.Click m.ncvt = 3 RELEASE THISFORM ENDPROC cvtalertpjx PROCEDURE Click PRIVATE cOldDir cOldDir = m.cBackDir cBackDir = GETDIR(m.cBackDir,C_SELBACKDIR_LOC) *- restore old directory, if they cancelled cBackDir = IIF(EMPTY(m.cBackDir),m.cOldDir,SYS(2027,m.cBackDir)) THISFORM.txtBackDir.Refresh ENDPROC cvtalertcat. cmdLogFile Top = 97 Left = 351 Height = 25 Width = 25 Caption = "..." Enabled = .F. Statusbartext = "Seleccione el archivo que contendr el registro de conversi TabIndex = 5 Name = "cmdLogFile" cvtalertpjx. checkbox cTop = 90 Left = 427 Height = 25 Width = 25 Caption = "..." TabIndex = 4 Name = "cmdBackDir" cmdBackDir TAutoSize = .F. ButtonCount = 2 BorderStyle = 0 Value = 1 ControlSource = "m.nCvt" Height = 39 Left = 19 TerminateRead = .T. Top = 137 Width = 228 TabIndex = 1 Name = "cmd1" COMMAND1.Top = 5 COMMAND1.Left = 5 COMMAND1.Height = 29 COMMAND1.Width = 94 COMMAND1.FontBold = .F. COMMAND1.FontName = "Arial" COMMAND1.FontSize = 8 COMMAND1.Caption = "Continuar" Command1.Default = .T. COMMAND1.Statusbartext = "Haga clic para continuar con la conversi Command1.TabIndex = 1 Command1.Name = "command1" COMMAND2.Top = 5 COMMAND2.Left = 129 COMMAND2.Height = 29 COMMAND2.Width = 94 COMMAND2.FontBold = .F. COMMAND2.FontName = "Arial" COMMAND2.FontSize = 8 Command2.Cancel = .T. COMMAND2.Caption = "Cancelar" COMMAND2.Statusbartext = "Haga clic para cancelar la conversi Command2.TabIndex = 2 Command2.Name = "command2" PROCEDURE Click IF nOptDev = N_DEVMODE THISFORM.cmdCodeFile.Enabled = .T. THISFORM.cmdCodeFile.Click *-THISFORM.txtCodeFile.Enabled = .T. && commented these out -- don;t allow user to type in filename (jd 03/11/96) *-THISFORM.txtCodeFile.TabStop = .T. *-THISFORM.txtCodeFile.ReadOnly = .F. IF EMPTY(m.cCodeFile) THISFORM.cmd1.command1.Enabled = .F. ENDIF THISFORM.cmdCodeFile.Enabled = .F. THISFORM.txtCodeFile.Enabled = .F. THISFORM.txtCodeFile.TabStop = .F. THISFORM.txtCodeFile.ReadOnly = .T. THISFORM.cmd1.command1.Enabled = .T. ENDIF m.lDevMode = (noptDev = N_DEVMODE) ENDPROC PROCEDURE option2.Message RETURN C_VISUALCONVMSG_LOC ENDPROC CALERTMSG CVTALERTSCX THISFORM CHKBOTHPLAT ENABLED CHKVCX CHKRECURSE FONTBOLD COMMAND1 COMMAND2 CMDHELP VALUE THISFORM CHKBOTHPLAT ENABLED CHKVCX CHKRECURSE FONTBOLD, THISFORM VALUE CLICK SCX;VCX Seleccione el archivo que desea actualizar: DEFAULTvC Seleccione el directorio: COLDFILE CFILE THISFORM OPTIONGROUP1 VALUE TXTCODEFILE REFRESH COMMAND1 ENABLED! Archivos \<SCX CAPTION Init, optiongroup1.Click~ cmd1.Command1.Click cmdCodeFile.Click chkBothPlat.Inity checkbox commandbutton commandbutton commandbutton FontBold = .F. FontSize = 8 ControlSource = "m.cBackDir" Enabled = .F. Format = "K" Height = 25 InputMask = (REPL("X",254)) Left = 247 ReadOnly = .T. TabIndex = 3 TabStop = .F. Top = 90 Width = 170 DisabledForeColor = 0,0,0 Name = "txtBackDir" cvtalertpjx. txtBackDir check1 cvtalertcat. textbox commandbutton cvtalertcat. IVERSION\ FontName Geneva FontSize SETALL7 CALERTMSG LBLALERTMSG CAPTION CONFIGUREFONT COMMAND1 SETFOCUS setbold, configurefont Init3 textbox textbox cvtalertpjx. SPROCEDURE Click PRIVATE m.cOldLog IF EMPTY(m.cLogFile) m.cOldLog = "" m.cLogFile = JUSTSTEM(m.cFileName) + "." + C_LOGEXT m.cOldLog = m.cLogFile ENDIF cLogFile = LOWER(PUTFILE(C_SELLOGFILE_LOC,m.cLogFile,C_LOGEXT)) *- remember old log file, so it isn't cleared if they cancel cLogFile = IIF(EMPTY(cLogFile),m.cOldLog,SYS(2027,m.cLogFile)) THISFORM.txtLogFile.Refresh IF !EMPTY(m.cLogFile) AND ((m.nOptDev = N_DEVMODE AND !EMPTY(m.cCodeFile)) OR m.nOptDev = N_STDMODE) THISFORM.cmd1.command1.Enabled = .T. THISFORM.cmd1.command1.Enabled = .F. ENDIF ENDPROC Top = 90 Left = 24 Height = 16 Width = 219 FontBold = .F. FontSize = 8 Caption = "\<Hacer copia de seguridad de los archivos" Value = 1 ControlSource = "lBackUp" TabIndex = 5 Name = "Check2" Check2 CBACKDEF NTMPCOUNT CTMPDIR CBACKDIR ATMPARR ADDBS El directorio de copia de seguridad no es v lido. El nombre para el archivo de registro no es v lido. El nombre para el archivo de c digo no es v lido. CFNAME LBACKUP CBACKDIR ADDBS THISFORM TXTBACKDIR SETFOCUS CLOGFILE TXTLOGFILE NOPTDEV CCODEFILE TXTCODEFILE VALUE CLICKL LBACKUP THISFORM GETBACKDIR getbackdir, cmd1.command1.Clickx cmd1.Click 5Top = 97 Left = 24 Height = 16 Width = 139 FontBold = .F. FontName = "Arial" FontSize = 8 Caption = "C\<rear archivo de registro" ControlSource = "lLog" StatusBarText = "Si la activa, se crear un archivo de registro con los documentos procesados por el convertidor." TabIndex = 3 Name = "check1" PROCEDURE setbold *- Return logical based on whether font should be bold or not *- If we're not running under Chicago, make the commandbutton bold *- BugBug: The return value of OS() will probably change--this may need updating LOCAL iVersion DO CASE CASE _WINDOWS m.iVersion = VAL(SUBSTR(OS(1), RAT(' ', OS(1)) + 1)) IF m.iVersion < 4 RETURN .t. ENDIF CASE _MAC RETURN .T. OTHERWISE ENDCASE RETURN .F. ENDPROC PROCEDURE configurefont DO CASE CASE _mac THIS.SetAll("FontName","Geneva") THIS.SetAll("FontSize",10) ENDCASE ENDPROC PROCEDURE Init *- (c) Microsoft Corporation 1995 PARAMETER cAlertMsg THIS.lblAlertMsg.Caption = cAlertMsg THIS.ConfigureFont THIS.cmd1.command1.SetFocus ENDPROC THISFORM El nombre para el archivo de c digo no es v lido. NOPTDEV CCODEFILE THISFORM TXTCODEFILE SETFOCUS VALUE CLICK FONTBOLD THISFORM SETBOLD# THISFORM VALUE CLICK FONTBOLD THISFORM SETBOLD Click, command1.Clickf command1.Init command2.Click command2.Init/ :PROCEDURE Init THIS.caption = C_CONVERTVCX_LOC ENDPROC Top = 113 Left = 117 Height = 25 Width = 97 FontSize = 8 Caption = "Check1" ControlSource = "m.lVCX" DisabledBackColor = 192,192,192 Name = "chkVCX" chkVCX checkbox checkbox cvtalert.vcx /PROCEDURE Click THISFORM.cmdLogFile.Enabled = THIS.value *-THISFORM.txtLogFile.Enabled = THIS.value && commented these out -- don't allow user to type in values (03.11.96 jd) *-THISFORM.txtLogFile.TabStop = THIS.value *-THISFORM.txtLogFile.ReadOnly = !(THIS.value) IF THIS.value AND EMPTY(m.cLogFile) THISFORM.cmd1.command1.Enabled = .F. THISFORM.cmdLogFile.Click IF EMPTY(m.cLogFile) *- they cancelled, so uncheck THIS.value = .F. THISFORM.cmd1.command1.Enabled = .T. ENDIF THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC FontBold = .F. FontName = "Arial" FontSize = 8 ControlSource = "m.cLogFile" Enabled = .F. Format = "K" Height = 25 InputMask = (REPL("X",254)) Left = 171 ReadOnly = .T. Statusbartext = 'Especifica el archivo que contendr el registro de conversi n, si "Crear archivo de registro" est activada.' TabIndex = 4 TabStop = .F. Top = 97 Width = 170 DisabledForeColor = 0,0,0 Name = "txtLogFile" Nombre del archivo de registro: COLDLOG CLOGFILE JUSTSTEM CFILENAME THISFORM TXTLOGFILE REFRESH NOPTDEV CCODEFILE COMMAND1 ENABLED Click, El nombre para el archivo de registro no es v lido. El nombre para el archivo de c digo no es v lido. CLOGFILE THISFORM TXTLOGFILE SETFOCUS NOPTDEV CCODEFILE TXTCODEFILE VALUE CLICK cmd1.command1.Click, THISFORM FONTBOLD THISFORM SETBOLD El nombre para el archivo de c digo no es v lido. NOPTDEV CCODEFILE THISFORM TXTCODEFILE SETFOCUS VALUE CLICK FONTBOLD THISFORM SETBOLD# THISFORM VALUE CLICK Click, Command1.Initf Command1.Click Command2.Init Command2.Click( IVERSION\ FontName Geneva FontSize SETALL7 CALERTMSG LBLALERTMSG CAPTION CONFIGUREFONT COMMAND1 SETFOCUS setbold, configurefont Init, PROCEDURE Click THISFORM.txtBackDir.Enabled = THIS.value THISFORM.cmdBackDir.Enabled = THIS.value THISFORM.txtBackDir.TabStop = THIS.value THISFORM.txtBackDir.ReadOnly = !(THIS.value) IF THIS.value AND EMPTY(m.cBackDir) THISFORM.cmd1.command1.Enabled = .F. THISFORM.cmdBackDir.Click IF EMPTY(m.cBackDir) *- they cancelled, so uncheck THIS.value = .F. THISFORM.cmd1.command1.Enabled = .T. ENDIF THISFORM.cmd1.command1.Enabled = .T. ENDIF ENDPROC checkbox checkbox *getbackdir Get a backupDir cvtalert.vcx PROCEDURE setbold *- Return logical based on whether font should be bold or not *- If we're not running under Chicago, make the commandbutton bold *- BugBug: The return value of OS() will probably change--this may need updating LOCAL iVersion DO CASE CASE _WINDOWS m.iVersion = VAL(SUBSTR(OS(1), RAT(' ', OS(1)) + 1)) IF m.iVersion < 4 RETURN .t. ENDIF CASE _MAC OTHERWISE ENDCASE RETURN .F. ENDPROC PROCEDURE configurefont DO CASE CASE _mac THIS.SetAll("FontName","Geneva") THIS.SetAll("FontSize",10) ENDCASE ENDPROC PROCEDURE Init PARAMETER cAlertMsg THIS.lblAlertMsg.Caption = cAlertMsg THIS.ConfigureFont THIS.cmd1.command1.SetFocus ENDPROC PROCEDURE Init *- (c) Microsoft Corporation 1995 PARAMETER cAlertMsg cvtAlertSCX::Init(cAlertMsg) THISFORM.chkBothPlat.Enabled = .F. && really, the SCX checkbox THISFORM.chkVCX.Enabled = .F. THISFORM.chkRecurse.Enabled = .F. THISFORM.chkBothPlat.FontBold = .T. THISFORM.chkVCX.FontBold = .T. THISFORM.chkRecurse.FontBold = .T. THISFORM.cmd1.command1.Enabled = .F. THISFORM.cmd1.command1.FontBold = .F. THISFORM.cmd1.command2.FontBold = .F. THISFORM.cmdHelp.FontBold = .F. ENDPROC PROCEDURE optiongroup1.Click IF THIS.value = 1 THISFORM.chkBothPlat.Enabled = .F. && really, the SCX checkbox THISFORM.chkVCX.Enabled = .F. THISFORM.chkRecurse.Enabled = .F. THISFORM.chkBothPlat.FontBold = .T. THISFORM.chkVCX.FontBold = .T. THISFORM.chkRecurse.FontBold = .T. THISFORM.chkBothPlat.Enabled = .T. THISFORM.chkVCX.Enabled = .T. THISFORM.chkRecurse.Enabled = .T. THISFORM.chkBothPlat.FontBold = .F. THISFORM.chkVCX.FontBold = .F. THISFORM.chkRecurse.FontBold = .F. ENDIF ENDPROC PROCEDURE cmd1.Command1.Click LOCAL m.nfh THISFORM.cmd1.Value = 1 THISFORM.cmd1.Click ENDPROC PROCEDURE cmdCodeFile.Click LOCAL cOldFile *- remember old one cOldFile= m.cFile IF THISFORM.optionGroup1.Value = 1 *- file cFile = LOWER(GETFILE("SCX;VCX",C_SELSCXFILE_LOC)) *- directory cFile = LOWER(GETDIR(SET("DEFAULT") + CURDIR(),C_SELSCXDIR_LOC)) ENDIF cFile = IIF(EMPTY(cFile),cOldFile,SYS(2027,cFile)) && in case user cancels, restore old value THISFORM.txtCodeFile.Refresh THISFORM.cmd1.command1.Enabled = !EMPTY(m.cFile) ENDPROC PROCEDURE chkBothPlat.Init THIS.caption = C_CONVERTSCX_LOC ENDPROC PROCEDURE cmd1.command1.Click LOCAL m.nfh IF lLog IF EMPTY(m.cLogFile) *- this should never happen RETURN ENDIF *- make sure file can be created m.nfh = FCREATE(m.cLogFile) IF m.nfh = -1 *- problem creating file =MESSAGEBOX(E_BADLOGNAME_LOC) THISFORM.txtLogFile.SetFocus RETURN ELSE =FCLOSE(m.nfh) ERASE (m.cLogFile) ENDIF ENDIF IF nOptDev = N_DEVMODE IF EMPTY(m.cCodeFile) *- this should never happen RETURN ENDIF *- make sure file can be created m.nfh = FCREATE(m.cCodeFile) IF m.nfh = -1 *- problem creating file =MESSAGEBOX(E_BADFNAME_LOC) THISFORM.txtCodeFile.SetFocus RETURN ELSE =FCLOSE(m.nfh) ERASE (m.cCodeFile) ENDIF ENDIF THISFORM.cmd1.Value = 1 THISFORM.cmd1.Click ENDPROC Height = 250 Width = 470 DoCreate = .T. Name = "cvtalertpjx3" Optiongroup1.Option1.Value = 1 Optiongroup1.Option1.Left = 5 Optiongroup1.Option1.Top = 5 Optiongroup1.Option1.Name = "Option1" Optiongroup1.Option2.Value = 0 Optiongroup1.Option2.Left = 5 Optiongroup1.Option2.Top = 25 Optiongroup1.Option2.Name = "Option2" Optiongroup1.Visible = .F. Optiongroup1.ZOrderSet = 0 Optiongroup1.Name = "Optiongroup1" cmd1.Command1.Top = 5 cmd1.Command1.Left = 5 cmd1.Command1.Name = "Command1" cmd1.Command2.Top = 5 cmd1.Command2.Left = 129 cmd1.Command2.Name = "Command2" cmd1.Left = 59 cmd1.Top = 206 cmd1.ZOrderSet = 12 cmd1.Name = "cmd1" txtCodeFile.Visible = .F. txtCodeFile.ZOrderSet = 1 txtCodeFile.Name = "txtCodeFile" cmdCodeFile.Visible = .F. cmdCodeFile.ZOrderSet = 2 cmdCodeFile.Name = "cmdCodeFile" cmdHelp.Top = 211 cmdHelp.Left = 312 cmdHelp.Name = "cmdHelp" lblAlertMsg.Height = 49 lblAlertMsg.Left = 24 lblAlertMsg.Top = 12 lblAlertMsg.Width = 433 lblAlertMsg.ZOrderSet = 3 lblAlertMsg.Name = "lblAlertMsg" CHKBOTHPLAT.Top = 62 CHKBOTHPLAT.Left = 24 CHKBOTHPLAT.Height = 25 CHKBOTHPLAT.Width = 433 CHKBOTHPLAT.ZOrderSet = 4 CHKBOTHPLAT.Name = "CHKBOTHPLAT" Check1.Top = 122 Check1.Left = 24 Check1.Height = 25 Check1.Width = 217 Check1.ZOrderSet = 5 Check1.Name = "Check1" txtLogFile.ZOrderSet = 6 txtLogFile.Name = "txtLogFile" cmdLogFile.ZOrderSet = 7 cmdLogFile.Name = "cmdLogFile" Check2.Top = 90 Check2.Left = 24 Check2.Height = 25 Check2.Width = 217 Check2.ZOrderSet = 8 Check2.Name = "Check2" txtBackDir.ZOrderSet = 9 txtBackDir.Name = "txtBackDir" cmdBackDir.ZOrderSet = 10 cmdBackDir.Name = "cmdBackDir" FONTBO CButtonCount = 2 BorderStyle = 0 Value = 1 ControlSource = "m.nCvt" Height = 49 Left = 19 TerminateRead = .T. Top = 55 Width = 223 TabIndex = 1 Name = "cmd1" COMMAND1.Top = 5 COMMAND1.Left = 5 COMMAND1.Height = 29 COMMAND1.Width = 94 COMMAND1.FontBold = .F. COMMAND1.FontName = "Arial" COMMAND1.FontSize = 8 COMMAND1.Caption = "Continuar" Command1.Default = .T. COMMAND1.Statusbartext = "Haga clic para continuar con la conversi Command1.TabIndex = 1 Command1.Name = "Command1" COMMAND2.Top = 5 COMMAND2.Left = 129 COMMAND2.Height = 29 COMMAND2.Width = 94 COMMAND2.FontBold = .F. COMMAND2.FontName = "Arial" COMMAND2.FontSize = 8 Command2.Cancel = .T. COMMAND2.Caption = "Cancelar" COMMAND2.Statusbartext = "Haga clic para cancelar la conversi Command2.TabIndex = 2 Command2.Name = "Command2" ^PROCEDURE getbackdir *---------------------------------- * FUNCTION GetBackDir *---------------------------------- PRIVATE cBackdef, nTmpCount, cTmpDir m.nTmpCount = 0 m.cBackDir = ALLT(m.cBackDir) m.cTmpDir = m.cBackDir + C_BACKDIR DO WHILE ADIR(atmparr,m.cTmpDir,"D") # 0 m.nTmpCount = m.nTmpCount + 1 m.cTmpDir = ADDBS(m.cBackDir) + C_BACKDIR + ALLTRIM(STR(m.nTmpCount)) ENDDO *- make directory MD (m.cTmpDir) *- make sure it got created IF ADIR(atmparr,m.cTmpDir,"D") = 0 *- Error creating directory m.cTmpDir = "" m.nCvt = 2 ENDIF m.cBackDir = m.cTmpDir * ENDFUNC ENDPROC PROCEDURE cmd1.command1.Click LOCAL m.nfh, cFName IF m.lBackUp AND !EMPTY(m.cBackDir) m.cFname = AddBS(TRIM(m.cBackDir)) + SYS(3) *- make sure file can be created m.nfh = FCREATE(m.cFname) IF m.nfh = -1 *- problem creating file =MESSAGEBOX(E_BADBACKDIR_LOC) THISFORM.txtBackDir.SetFocus RETURN ELSE =FCLOSE(m.nfh) ERASE (m.cFname) ENDIF ENDIF IF lLog IF EMPTY(m.cLogFile) *- this should never happen RETURN ENDIF *- make sure file can be created m.nfh = FCREATE(m.cLogFile) IF m.nfh = -1 *- problem creating file =MESSAGEBOX(E_BADLOGNAME_LOC) THISFORM.txtLogFile.SetFocus RETURN ELSE =FCLOSE(m.nfh) ERASE (m.cLogFile) ENDIF ENDIF IF nOptDev = N_DEVMODE IF EMPTY(m.cCodeFile) *- this should never happen RETURN ENDIF *- make sure file can be created m.nfh = FCREATE(m.cCodeFile) IF m.nfh = -1 *- problem creating file =MESSAGEBOX(E_BADFNAME_LOC) THISFORM.txtCodeFile.SetFocus RETURN ELSE =FCLOSE(m.nfh) ERASE (m.cCodeFile) ENDIF ENDIF THISFORM.cmd1.Value = 1 THISFORM.cmd1.Click ENDPROC PROCEDURE cmd1.Click IF nCvt = 1 AND m.lBackUp THISFORM.GetBackDir ENDIF IF nCvt > 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC Height = 187 Width = 390 DoCreate = .T. Name = "cvtdlog30scx" optiongroup1.Option1.Caption = "\<Archivo" optiongroup1.Option1.Value = 1 optiongroup1.Option1.Left = 5 optiongroup1.Option1.Top = 5 optiongroup1.Option1.Name = "Option1" optiongroup1.Option2.Caption = "\<Directorio" optiongroup1.Option2.Value = 0 optiongroup1.Option2.Left = 5 optiongroup1.Option2.Top = 25 optiongroup1.Option2.Name = "Option2" optiongroup1.ControlSource = "iFileDir" optiongroup1.Height = 49 optiongroup1.Left = 7 optiongroup1.Top = 64 optiongroup1.Width = 91 optiongroup1.Name = "optiongroup1" cmd1.Command1.Top = 5 cmd1.Command1.Left = 5 cmd1.Command1.Name = "Command1" cmd1.Command2.Top = 5 cmd1.Command2.Left = 129 cmd1.Command2.Name = "Command2" cmd1.Left = 21 cmd1.Top = 142 cmd1.Name = "cmd1" txtCodeFile.ControlSource = "m.cFile" txtCodeFile.Height = 25 txtCodeFile.Left = 106 txtCodeFile.Top = 79 txtCodeFile.Width = 218 txtCodeFile.Name = "txtCodeFile" cmdCodeFile.Top = 79 cmdCodeFile.Left = 332 cmdCodeFile.Height = 25 cmdCodeFile.FontSize = 9 cmdCodeFile.Caption = "..." cmdCodeFile.Enabled = .T. cmdCodeFile.Name = "cmdCodeFile" cmdHelp.Top = 147 cmdHelp.Left = 274 cmdHelp.Name = "cmdHelp" lblAlertMsg.Height = 27 lblAlertMsg.Left = 15 lblAlertMsg.Top = 12 lblAlertMsg.Width = 352 lblAlertMsg.Name = "lblAlertMsg" chkBothPlat.Top = 113 chkBothPlat.Left = 13 chkBothPlat.Height = 25 chkBothPlat.Width = 97 chkBothPlat.ControlSource = "m.lSCX" chkBothPlat.Name = "chkBothPlat" $Height = 226 Width = 390 DoCreate = .T. MaxButton = .F. Name = "cvtalertcat" OPTIONGROUP1.OPTION1.Value = 1 OPTIONGROUP1.OPTION1.Left = 5 OPTIONGROUP1.OPTION1.Top = 5 optiongroup1.option1.Name = "option1" OPTIONGROUP1.OPTION2.Value = 0 OPTIONGROUP1.OPTION2.Left = 5 OPTIONGROUP1.OPTION2.Top = 25 optiongroup1.option2.Name = "option2" optiongroup1.ControlSource = "nOptDev" optiongroup1.Height = 49 optiongroup1.Top = 128 optiongroup1.Width = 133 optiongroup1.TabIndex = 6 optiongroup1.Name = "optiongroup1" cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command1.TabIndex = 1 cmd1.command1.Name = "command1" cmd1.command2.Top = 5 cmd1.command2.Left = 129 cmd1.command2.TabIndex = 2 cmd1.command2.Name = "command2" cmd1.Top = 179 cmd1.TabIndex = 1 cmd1.Name = "cmd1" txtcodefile.Left = 171 txtcodefile.TabIndex = 7 txtcodefile.Top = 143 txtcodefile.Name = "txtcodefile" cmdcodefile.Top = 143 cmdcodefile.Left = 351 cmdcodefile.TabIndex = 8 cmdcodefile.Name = "cmdcodefile" cmdHelp.Top = 184 cmdHelp.Name = "cmdHelp" lblalertmsg.Height = 49 lblalertmsg.Left = 24 lblalertmsg.Top = 12 lblalertmsg.Width = 349 lblalertmsg.Name = "lblalertmsg" chkBothPlat.Top = 63 chkBothPlat.Left = 24 chkBothPlat.Height = 25 chkBothPlat.Width = 357 chkBothPlat.Name = "chkBothPlat" ButtonCount = 2 BorderStyle = 0 Value = 1 ControlSource = "nOptDev" Height = 49 Left = 19 Top = 86 Width = 148 TabIndex = 3 Name = "optiongroup1" OPTION1.FontBold = .F. OPTION1.FontName = "Arial" OPTION1.FontSize = 8 OPTION1.Caption = "Conversi n \<funcional" OPTION1.Value = 1 OPTION1.Height = 16 OPTION1.Left = 5 OPTION1.Statusbartext = "Convertir formularios para que puedan ejecutarse." OPTION1.Top = 5 OPTION1.Width = 124 OPTION1.AutoSize = .T. Option1.DisabledBackColor = 192,192,192 Option1.Name = "option1" OPTION2.FontBold = .F. OPTION2.FontName = "Arial" OPTION2.FontSize = 8 OPTION2.Caption = "Conversi n \<visual" OPTION2.Value = 0 OPTION2.Height = 18 OPTION2.Left = 5 OPTION2.Statusbartext = "Almacenar c digo de procedimiento en otro archivo para crear clases visuales con formularios antiguos." OPTION2.Top = 25 OPTION2.Width = 140 Option2.DisabledBackColor = 192,192,192 Option2.Name = "option2" lor = Height = 102 Width = 514 DoCreate = .T. Name = "cvtlocate" lblAlertMsg.Height = 42 lblAlertMsg.Left = 12 lblAlertMsg.Top = 7 lblAlertMsg.Width = 480 lblAlertMsg.Name = "lblAlertMsg" cmd1.Command1.AutoSize = .F. cmd1.Command1.Top = 5 cmd1.Command1.Left = 5 cmd1.Command1.Height = 29 cmd1.Command1.Width = 105 cmd1.Command1.Caption = "Encontrar " cmd1.Command1.Default = .T. cmd1.Command1.Name = "Command1" cmd1.Command2.Top = 5 cmd1.Command2.Left = 118 cmd1.Command2.Height = 29 cmd1.Command2.Width = 104 cmd1.Command2.Cancel = .F. cmd1.Command2.Caption = "\<Pasar por alto" cmd1.Command2.Name = "Command2" cmd1.Name = "cmd1" cmdHelp.Top = 60 cmdHelp.Left = 251 cmdHelp.Height = 29 cmdHelp.Width = 118 cmdHelp.Caption = "Pasar por alto \<todo" cmdHelp.Name = "cmdHelp" Height = 250 Width = 470 DoCreate = .T. MaxButton = .F. Name = "cvtalertpjx" optiongroup1.option1.Alignment = 0 optiongroup1.option1.Value = 1 optiongroup1.option1.Height = 16 optiongroup1.option1.Left = 5 optiongroup1.option1.Top = 5 optiongroup1.option1.Width = 139 optiongroup1.option1.AutoSize = .F. optiongroup1.option1.Name = "option1" optiongroup1.option2.Value = 0 optiongroup1.option2.Left = 5 optiongroup1.option2.Top = 25 optiongroup1.option2.Name = "option2" optiongroup1.Height = 49 optiongroup1.Left = 19 optiongroup1.Top = 153 optiongroup1.Width = 149 optiongroup1.TabIndex = 8 optiongroup1.Name = "optiongroup1" cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command1.Name = "command1" cmd1.command2.Top = 5 cmd1.command2.Left = 129 cmd1.command2.Name = "command2" cmd1.ControlSource = "nCvt" cmd1.Top = 207 cmd1.TabIndex = 1 cmd1.Name = "cmd1" txtcodefile.Left = 247 txtcodefile.TabIndex = 9 txtcodefile.Top = 168 txtcodefile.Name = "txtcodefile" cmdcodefile.Top = 168 cmdcodefile.Left = 427 cmdcodefile.TabIndex = 10 cmdcodefile.Name = "cmdcodefile" cmdHelp.Top = 212 cmdHelp.Left = 281 cmdHelp.Name = "cmdHelp" lblalertmsg.Height = 49 lblalertmsg.Left = 24 lblalertmsg.Top = 12 lblalertmsg.Width = 433 lblalertmsg.Name = "lblalertmsg" chkBothPlat.Top = 62 chkBothPlat.Left = 24 chkBothPlat.Height = 25 chkBothPlat.Width = 436 chkBothPlat.Name = "chkBothPlat" check1.Top = 122 check1.Left = 24 check1.Height = 16 check1.Width = 139 check1.TabIndex = 5 check1.Name = "check1" txtlogfile.Left = 247 txtlogfile.TabIndex = 6 txtlogfile.Top = 122 txtlogfile.Name = "txtlogfile" cmdlogfile.Top = 122 cmdlogfile.Left = 427 cmdlogfile.TabIndex = 7 cmdlogfile.Name = "cmdlogfile" #DEFINE C_CONVERSION_LOC "Microsoft Visual FoxPro Converter Utility Version 5.00e (07/15/96)" *- CONVERT.H *- Header file for Convert.PRG *- (c) Microsoft Corporation 1995 *- debug #DEFINES -- no need to localize these #DEFINE L_SHOWVERSION .F. #DEFINE L_DEBUG .F. #DEFINE L_USEVCX .F. #DEFINE L_DEBUGSUSPEND .F. #DEFINE C_LATESTVER "03.00.00.0424" *- current version numbers #DEFINE C_SCXVERSTAMP "VERSION = 3.00" #DEFINE C_PJXVERSTAMP 260 && 1.3 *- various common special chars #DEFINE C_CRLF CHR(13)+CHR(10) && return/linefeed #DEFINE C_CR CHR(13) && return #DEFINE C_LF CHR(10) && linefeed #DEFINE C_TAB CHR(9) && tab #DEFINE C_TAB2 CHR(9)+CHR(9) && 2 tabs #DEFINE C_NULL CHR(0) && null char *- error messages (need localizing) #DEFINE E_INVALIDFILE_LOC "Ha seleccionado un archivo no v lido." #DEFINE E_INVALPJX_LOC "Ha seleccionado un archivo de proyecto no v lido." #DEFINE E_INVALFPC_LOC "Ha seleccionado un archivo de cat logo no v lido." #DEFINE E_INVALDBF_LOC "El formato de archivo no es v lido." #DEFINE E_WRONGFMT_LOC "El archivo de pantalla no tiene un formato conocido." #DEFINE E_WRONGFMT2_LOC "El archivo de informe o de etiqueta no tiene un formato conocido." #DEFINE E_NOSCX_LOC "Debe seleccionar un archivo .SCX." #DEFINE E_NOOPEN_LOC "No se puede abrir " #DEFINE E_NOCLOSE_LOC "No se puede cerrar " #DEFINE E_FILE_LOC "Archivo " #DEFINE E_NOSCXFILE_LOC "No se puede usar Converter - falta el archivo TAZMAIN.SCX." #DEFINE E_HAS20FILE_LOC "Ha seleccionado un archivo de FoxPro 2.0. El Transportador debe convertirlo primero al formato de 2.6." #DEFINE E_NOTRANS_LOC "No se puede encontrar el programa transportador. Se cancel la conversi #DEFINE E_NOPLATOBJS_LOC "Ha seleccionado una pantalla de FoxPro sin objetos de la plataforma actual. El Transportador debe convertirla primero." #DEFINE E_NODIR_LOC "Error al crear el directorio de copia de seguridad. Se cancel la operaci #DEFINE E_NOFILE_LOC "No se pudo encontrar el archivo indicado en " #DEFINE E_OPCANC_LOC ". Se cancel la operaci #DEFINE E_NOCONVERT_LOC "No se ha convertido." #DEFINE E_NOCONVERT1_LOC " no se encuentra. " + E_NOCONVERT_LOC #DEFINE E_NOCONVERT2_LOC " no se pudo abrir. " + E_NOCONVERT_LOC #DEFINE E_NOCONVERT3_LOC " es de s lo lectura. " + E_NOCONVERT_LOC #DEFINE E_NOCONVERT4_LOC " es un archivo oculto o de sistema. " + E_NOCONVERT_LOC #DEFINE E_NOBACKUP_LOC ". No se ha hecho copia de seguridad." #DEFINE E_NOSTART_LOC "Ha habido un problema al iniciar Converter." #DEFINE E_BADFOX1_LOC "Debe utilizar FoxPro versi #DEFINE E_BADFOX2_LOC " o posteriormente para ejecutar Converter." #DEFINE E_NOOPENSRC_LOC "No se puede abrir el archivo de origen " #DEFINE E_FILENOEXIST_LOC "El archivo @1 no existe." #DEFINE E_BADCODEPAGE_LOC "La tabla de c digos @1 no es v lida." #DEFINE E_BADCALL_LOC "Se han pasado par metros err neos al convertidor. Para convertir archivos, bralos desde el men Archivo." #DEFINE E_FILEOPEN_LOC "El archivo ya est abierto." #DEFINE E_NA_LOC "Caracter stica no disponible todav #DEFINE E_NOCREATE_LOC "Error al crear " #DEFINE E_NOWRITE_LOC "Error al escribir en " #DEFINE E_NOFINDS_LOC "Algunos archivos faltan o no se pudieron encontrar. No se convertir Desea continuar?" #DEFINE E_FATAL_LOC "Ocurri un error en Converter y no puede continuar." #DEFINE E_FATAL2_LOC " El error se ha registrado en " #DEFINE E_FATAL3_LOC ". Desea abrir el archivo de registro?" #DEFINE E_FATAL1_LOC "Error fatal en Converter: " #DEFINE E_ERR1_LOC "Error: " #DEFINE E_ERR2_LOC "N mero de error: " #DEFINE E_ERR3_LOC "M todo: " #DEFINE E_ERR4_LOC "L nea: " #DEFINE E_ERR5_LOC "C digo que produce el error: " #DEFINE E_ERR6_LOC "Archivo que se est procesando: " #DEFINE E_ERR7_LOC "No se ha grabado" #DEFINE E_NOMIG_LOC "Imposible migrar el archivo." #DEFINE E_MIGSTART_LOC "Empezar la migraci n al formato de FoxPro 2.x." #DEFINE E_MIGEND_LOC "Se ha completado correctamente la migraci n al formato de FoxPro 2.x." #DEFINE E_MACROEXPR1_LOC "No se puede procesar una expresi n de macro en la directiva del generador." #DEFINE E_PROPTOOLONG_LOC "La expresi n en el registro n es demasiado larga " #DEFINE E_WARNING_LOC "ADVERTENCIA" #DEFINE E_EXPRNOCONV_LOC "La expresi n no se ha encontrado." #DEFINE E_SEELOGFILE_LOC "Ver los detalles en el archivo de registro." #DEFINE E_DISKFULL_LOC "El disco est lleno y el convertidor no puede continuar. No se puede salvar el archivo de registro." #DEFINE E_NOINCLUDE_LOC "Imposible compilar el archivo. Consulte el archivo .ERR para ver detalles y compile manualmente." #DEFINE E_NOINCLUDE1_LOC "Imposible compilar el archivo " #DEFINE E_NOINCLUDE2_LOC " . Consulte el archivo .ERR para ver detalles y compile manualmente." *- Other strings to localize #DEFINE C_CONVERT1_LOC " Desea convertir la pantalla " #DEFINE C_CONVERT2_LOC " al formato de Visual FoxPro 5.0?" && (El archivo original todav a estar disponible.)" #DEFINE C_CONVERT3_LOC " Desea convertir " #DEFINE C_CONVERT3p_LOC "project " #DEFINE C_CONVERT3c_LOC "catalog " #DEFINE C_CONVERT3r_LOC "report " #DEFINE C_CONVERT3l_LOC "label " #DEFINE C_CONVERT4_LOC " (y todos los formularios e informes dentro de l) al formato de Visual FoxPro 5.0?" && (Los archivos originales todav a estar n disponibles.)" #DEFINE C_GETP1_LOC "Seleccione el archivo de pantalla:" #DEFINE C_INSMESS1_LOC "*- Inicio de la directiva #INSERT - " #DEFINE C_INSMESS2_LOC "*- Fin de la directiva #INSERT" #DEFINE C_INSMESS3_LOC "*- No se pudo encontrar el archivo de directiva #INSERT" #DEFINE C_PROCESS_LOC "Procesando: " #DEFINE C_SSETS_LOC " conjuntos de pantallas." #DEFINE C_NEWFORM_LOC "Nuevo formulario: " #DEFINE C_OF_LOC " de " #DEFINE C_PROJSTAT_LOC "Estado del proyecto" #DEFINE C_PROJNAME_LOC "Proyecto: " #DEFINE C_COMPLETE_LOC "Completado: " #DEFINE C_PERCHAR_LOC "%" #DEFINE C_BACKFILES_LOC "Haciendo copia de seguridad de los archivos del proyecto..." #DEFINE C_MAXFILES_LOC " archivos." #DEFINE C_OVERWRITE_LOC " existe. Desea sobrescribir?" #DEFINE C_SAYSCOMMENT_LOC "*- SAYs de 2.6 que hay que actualizar" #DEFINE C_THERMMSG1_LOC "Convirtiendo el proyecto " #DEFINE C_THERMMSG2_LOC "Convirtiendo la pantalla " #DEFINE C_THERMMSG3_LOC "Convirtiendo el archivo de formato " #DEFINE C_THERMMSG4_LOC "Convirtiendo el archivo de cat logo " #DEFINE C_THERMMSG5_LOC "Convirtiendo el archivo " #DEFINE C_THERMMSG6_LOC "Transportando el proyecto " #DEFINE C_THERMMSG7_LOC "Transportando la pantalla " #DEFINE C_THERMMSG8_LOC "Convirtiendo el informe " #DEFINE C_THERMMSG9_LOC "Transportando el informe " #DEFINE C_THERMMSG10_LOC "Actualizando el informe " #DEFINE C_THERMMSG11_LOC "Migrando la pantalla " #DEFINE C_THERMMSG12_LOC "Migrando el informe " #DEFINE C_THERMMSG13_LOC "Migrando el archivo de formato " #DEFINE C_THERMTITLE_LOC "" #DEFINE C_PROJTASK1_LOC "Convirtiendo pantallas..." #DEFINE C_PROJTASK2_LOC "Convirtiendo otros archivos..." #DEFINE C_PROJTASK3_LOC "Migrando archivos..." #DEFINE C_PROJTASK4_LOC "Convirtiendo el proyecto..." #DEFINE C_PROJTASK5_LOC "Convirtiendo el cat logo..." #DEFINE C_PROJTASK6_LOC "Configuraciones predeterminadas de la versi n 3.0..." #DEFINE C_CONVMSG_LOC "Convertido." + CHR(13) #DEFINE C_NOTCONVMSG_LOC "No se ha convertido." #DEFINE C_FILECONV_LOC "El archivo ya se ha convertido" #DEFINE C_CREATMSG_LOC ". Se cre un archivo SPR." #DEFINE C_NOCONVMSG_LOC "No es necesaria la conversi #DEFINE C_CONVLOG_LOC "Registro de conversi n para " #DEFINE C_CONVVERS_LOC "Convertidor: " #DEFINE C_LOGEND_LOC "*- fin del registro" #DEFINE C_CODESRC_LOC "C digo vario" #DEFINE C_CODEHDR_LOC "*- C digo de " #DEFINE C_CODEHDR1_LOC "*----------------------------------------------" + C_CRLF #DEFINE C_LOCFILE_LOC "Encontrar " #DEFINE C_LOCFILE2_LOC "Buscar archivo:" #DEFINE C_LOCFILE3_LOC "No se encontr el archivo " + JustFName(cTmpFname) + " Desea encontrarlo?" #DEFINE C_ERRLOG_LOC "Error" && nombre del archivo de registro por si hay errores y no se especifica ning n archivo de registro -- DON'T EXCEED 6 CHARACTERS #DEFINE C_BEGIN_LOC "Empezar la conversi #DEFINE C_END_LOC "Fin de la conversi #DEFINE C_SUCCESSCONV_LOC "La conversi n correcta dur #DEFINE C_SECONDS_LOC " segundos." #DEFINE C_COMPILE_LOC "Compilando." #DEFINE C_ESCAPE_LOC "Se presion ESC. Desea cancelar la conversi #DEFINE C_ESCLOGMSG_LOC "Se cancel la conversi n a petici n del usuario." #DEFINE C_MIGRATEMSG_LOC "Migrando el archivo..." #DEFINE C_FILEFOUNDMSG_LOC "Ese archivo ya forma parte de este proyecto. No se convirti ni agreg al proyecto." #DEFINE C_MACLOGMSG_LOC "(Versi n Macintosh)" #DEFINE C_WHEREIS_LOC "D nde est *- comments that will be inserted into code #DEFINE C_PARM1_CMMT_LOC "*- [CONVERTER] Instrucci n Parameter generada por Converter" + CHR(13) + "*- [CONVERTER] Pasar estos valores al nuevo formulario" + CHR(13) #DEFINE C_PARM2_CMMT_LOC "*- [CONVERTER] Necesitamos agregar c digo especial por si no se transfiere ning n par metro;" + CHR(13) + "*- [CONVERTER] no transferiremos par metros predeterminados que no deba haber all " + CHR(13) #DEFINE C_OPENTAB_CMMT_LOC "*- [CONVERTER] Abrir tablas para que haya campos disponibles" + CHR(13) #DEFINE C_SETIDX_CMMT_LOC "*- [CONVERTER] Abrir el archivo de ndice .IDX de tipo antiguo especificado en el entorno de pantalla" + CHR(13) #DEFINE C_PROCS_CMMT_LOC "*- [CONVERTER] Principio de CLEANUP y otros procedimientos de formulario de la versi n 2.x" + CHR(13) #DEFINE C_PROCSEND_CMMT_LOC "*- [CONVERTER] Fin de CLEANUP y otros procedimientos del formulario de la versi n 2.x" + CHR(13) #DEFINE C_VALID_CMMT_LOC "*- [CONVERTER] Principio de procedimientos VALID/WHEN del formulario de 2.x" + CHR(13) #DEFINE C_VALIDEND_CMMT_LOC "*- [CONVERTER] Fin de los procedimientos VALID/WHEN de formulario de la versi n 2.x" + CHR(13) #DEFINE C_INCLUDE_CMMT_LOC "*- [CONVERTER] Nuevo archivo INCLUDE, con #DEFINEs" + CHR(13) #DEFINE C_EXTERN_CMMT_LOC "*- [CONVERTER] Declarar matrices" + CHR(13) #DEFINE C_SYS16_CMMT_LOC "*- [CONVERTER] Sustituci n de SYS(16) para dar cabida al c digo en la nueva posici n" + CHR(13) #DEFINE C_SYS16END_CMMT_LOC "*- [CONVERTER] Fin de la sustituci n de SYS(16)" + CHR(13) #DEFINE C_RETVAL_CMMT_LOC "*- [CONVERTER] _rval almacenar el valor devuelto" + CHR(13) #DEFINE C_SETUP_CMMT_LOC "*- [CONVERTER] Recordar el entorno" + CHR(13) #DEFINE C_CLEANUP_CMMT_LOC "*- [CONVERTER] Restaurar el entorno" + CHR(13) #DEFINE C_MACRO_CMMT_LOC "*- [CONVERTER] No se puede procesar una macro en la directiva del generador" + CHR(13) #DEFINE C_H_CMMT_LOC "*- [CONVERTER] Archivo de encabezado para " #DEFINE C_SETSKIP_CMMT_LOC "*- [CONVERTER] Establecer SET SKIP TO" + CHR(13) #DEFINE C_FRXDESTROY_LOC "*- [CONVERTER] Restablecer tablas para compatibilidad" + CHR(13) #DEFINE C_CONV_CMMT_LOC "*- [CONVERTER] " #DEFINE C_GOTO1_CMMT_LOC "*- [CONVERTER] Restablecer punteros de registro" + CHR(13) #DEFINE C_GOTO2_CMMT_LOC "*- [CONVERTER] Recordar punteros de registro" + CHR(13) #DEFINE C_GOTOVAR1_CMMT_LOC "*- [CONVERTER] Declarar variables para punteros de registro" + CHR(13) #DEFINE C_GOTOVAR2_CMMT_LOC "*- [CONVERTER] Liberar variables para punteros de registro" + CHR(13) #DEFINE C_SELECTFILE_LOC "Seleccione el archivo o directorio que desee actualizar." *- These #defines are used by the LOCWORD procedure #DEFINE C_TABLE_LOC "Tabla" #DEFINE C_QUERY_LOC "Consulta" #DEFINE C_FORM_LOC "Pantalla" #DEFINE C_REPORT_LOC "Informe" #DEFINE C_LABEL_LOC "Etiqueta" #DEFINE C_PROGRAM_LOC "Programa" #DEFINE C_CATALOG_LOC "Cat logo" *- file type parameters that will be passed to converter *- do not localize #DEFINE C_SCREENTYPEPARM "SCREEN" #DEFINE C_PROJECTTYPEPARM "PROJECT" #DEFINE C_CATALOGTYPEPARM "CATALOG" #DEFINE C_REPORTTYPEPARM "REPORT" #DEFINE C_MENUTYPEPARM "MENU" #DEFINE C_LABELTYPEPARM "LABEL" #DEFINE C_DB4QUERYTYPEPARM "DB4QUERY" #DEFINE C_DB4FORMTYPEPARM "DB4FORM" #DEFINE C_DB4REPORTTYPEPARM "DB4REPORT" #DEFINE C_DB4LABELTYPEPARM "DB4LABEL" #DEFINE C_DB4VERSIONPARM "DBASE" #DEFINE C_FOXVERSIONPARM "FOX" #DEFINE C_FMTTYPEPARM "FORMAT" #DEFINE C_FPLUSFRXTYPEPARM "FB+FRX" *- SCX Array numbers #DEFINE A_PLATFORM 1 #DEFINE A_UNIQUEID 2 #DEFINE A_TIMESTAMP 3 #DEFINE A_OBJTYPE 4 #DEFINE A_OBJCODE 5 #DEFINE A_NAME 6 #DEFINE A_EXPR 7 #DEFINE A_VPOS 8 #DEFINE A_HPOS 9 #DEFINE A_HEIGHT 10 #DEFINE A_WIDTH 11 #DEFINE A_STYLE 12 #DEFINE A_PICTURE 13 #DEFINE A_ORDER 14 #DEFINE A_UNIQUE 15 #DEFINE A_COMMENT 16 #DEFINE A_ENVIRON 17 #DEFINE A_BOXCHAR 18 #DEFINE A_FILLCHAR 19 #DEFINE A_TAG 20 #DEFINE A_TAG2 21 #DEFINE A_PENRED 22 #DEFINE A_PENGREEN 23 #DEFINE A_PENBLUE 24 #DEFINE A_FILLRED 25 #DEFINE A_FILLGREEN 26 #DEFINE A_FILLBLUE 27 #DEFINE A_PENSIZE 28 #DEFINE A_PENPAT 29 #DEFINE A_FILLPAT 30 #DEFINE A_FONTFACE 31 #DEFINE A_FONTSTYLE 32 #DEFINE A_FONTSIZE 33 #DEFINE A_MODE 34 #DEFINE A_RULER 35 #DEFINE A_RULERLINES 36 #DEFINE A_GRID 37 #DEFINE A_GRIDV 38 #DEFINE A_GRIDH 39 #DEFINE A_SCHEME 40 #DEFINE A_SCHEME2 41 #DEFINE A_COLORPAIR 42 #DEFINE A_LOTYPE 43 #DEFINE A_RANGELO 44 #DEFINE A_HITYPE 45 #DEFINE A_RANGEHI 46 #DEFINE A_WHENTYPE 47 #DEFINE A_WHEN 48 #DEFINE A_VALIDTYPE 49 #DEFINE A_VALID 50 #DEFINE A_ERRORTYPE 51 #DEFINE A_ERROR 52 #DEFINE A_MESSTYPE 53 #DEFINE A_MESSAGE 54 #DEFINE A_SHOWTYPE 55 #DEFINE A_SHOW 56 #DEFINE A_ACTIVTYPE 57 #DEFINE A_ACTIVATE 58 #DEFINE A_DEACTTYPE 59 #DEFINE A_DEACTIVATE 60 #DEFINE A_PROCTYPE 61 #DEFINE A_PROCCODE 62 #DEFINE A_SETUPTYPE 63 #DEFINE A_SETUPCODE 64 #DEFINE A_FLOAT 65 #DEFINE A_CLOSE 66 #DEFINE A_MINIMIZE 67 #DEFINE A_BORDER 68 #DEFINE A_SHADOW 69 #DEFINE A_CENTER 70 #DEFINE A_REFRESH 71 #DEFINE A_DISABLED 72 #DEFINE A_SCROLLBAR 73 #DEFINE A_ADDALIAS 74 #DEFINE A_TAB 75 #DEFINE A_INITIALVAL 76 #DEFINE A_INITIALNUM 77 #DEFINE A_SPACING 78 #DEFINE A_CURPOS 79 *- PJX Array numbers #DEFINE A_OPENFILES 1 #DEFINE A_CLOSEFILES 2 #DEFINE A_DEFWINDOWS 3 #DEFINE A_RELWINDOWS 4 #DEFINE A_READMODAL 5 #DEFINE A_GETBORDERS 6 #DEFINE A_READCYCLE 7 #DEFINE A_READNOLOCK 8 #DEFINE A_MULTIREADS 9 #DEFINE A_ASSOCWINDS 10 *- SCX/PJX Array property mappings #DEFINE M_READONLY "ReadOnly" #DEFINE M_READCYCLE "ReadCycle" #DEFINE M_READNOLOCK "ReadLock" #DEFINE M_READNOMOUSE "ReadNoMouse" #DEFINE M_READSAVE "ReadSave" #DEFINE M_READTIME "ReadTimeout" #DEFINE M_READOBJ "ReadObject" #DEFINE M_ASSOCWINDS "WindowList" #DEFINE M_NAME "Name" #DEFINE M_DATASOURCE "ControlSource" #DEFINE M_CAPTION "Caption" #DEFINE M_EXPR "RowSource" #DEFINE M_VPOS "Top" #DEFINE M_HPOS "Left" #DEFINE M_HEIGHT "Height" #DEFINE M_WIDTH "Width" #DEFINE M_LSTYLE "RowSourceType" #DEFINE M_STYLE "Style" #DEFINE M_PICTURE "" #DEFINE M_FPICTURE "Picture" && "Bitmap" Wallpaper #DEFINE M_ICON "Icon" && Icon (Windows) #DEFINE M_UNIQUE "" #DEFINE M_ENVIRON "" #DEFINE M_BOXCHAR "" #DEFINE M_FILLCHAR "DataType" #DEFINE M_TAG "" #DEFINE M_TAGD "BottomCaption" && DOS Only #DEFINE M_TAG2 "" #DEFINE M_PEN "ForeColor" #DEFINE M_BACKCOLOR "BackColor" #DEFINE M_FILLCOLOR "FillColor" #DEFINE M_PENSIZE "BorderWidth" #DEFINE M_PENPAT "BorderStyle" #DEFINE M_BORDERCOLOR "BorderColor" #DEFINE M_FILLPAT "FillStyle" #DEFINE M_FONTFACE "FontName" #DEFINE M_FONTSIZE "FontSize" #DEFINE M_FONTBOLD "FontBold" #DEFINE M_FONTITAL "FontItalic" #DEFINE M_FONTUNDER "FontUnderline" #DEFINE M_FONTSHADOW "FontShadow" #DEFINE M_FONTOUTLINE "FontOutline" #DEFINE M_FONTCONDENSE "FontCondense" #DEFINE M_FONTEXTEND "FontExtend" #DEFINE M_FONTOPAQ "FontOpaque" #DEFINE M_FONTTRANS "FontTransparent" #DEFINE M_MODE "BackStyle" #DEFINE M_RULER "" #DEFINE M_RULERLINES "" #DEFINE M_GRID "" #DEFINE M_GRIDV "" #DEFINE M_GRIDH "" #DEFINE M_SCHEME "ColorScheme" #DEFINE M_SCHEME2 "" #DEFINE M_COLORPAIR "" #DEFINE M_RANGELO "LowValue" #DEFINE M_RANGEHI "HighValue" #DEFINE M_RANGE2LO "RangeLow" #DEFINE M_RANGE2HI "RangeHigh" #DEFINE M_1STELEMENT "FirstElement" #DEFINE M_NUMELEMENTS "NumberOfElements" #DEFINE M_WHEN "ReadWhen" #DEFINE M_WHEN2 "When" #DEFINE M_VALID "ReadValid" #DEFINE M_VALID2 "Valid" #DEFINE M_ERROR "ErrorMessage" && Error method #DEFINE M_MESSAGE "Message" && "StatusBarText" #DEFINE M_SHOW "ReadShow" #DEFINE M_ACTIVATE "ReadActivate" #DEFINE M_DEACTIVATE "ReadDeactivate" #DEFINE M_PROCCODE "" #DEFINE M_CLEANUP "Unload" #DEFINE M_SETUP1 "Load" #DEFINE M_SETUP2 "Load" &&??? may change #DEFINE M_FLOAT "Movable" #DEFINE M_CLOSE "Closable" #DEFINE M_MINIMIZE "MinButton" #DEFINE M_MAXIMIZE "MaxButton" #DEFINE M_CONTROLBOX "ControlBox" #DEFINE M_GROW "Sizable" #DEFINE M_MDI "MDIChild" #DEFINE M_DESKTOP "Desktop" #DEFINE M_WINDOW "Window" #DEFINE M_BORDER "BorderStyle" #DEFINE M_SHADOW "Shadow" #DEFINE M_CENTER "AutoCenter" #DEFINE M_HALF "HalfHeightCaption" #DEFINE M_REFRESH "" #DEFINE M_ENABLED "Enabled" #DEFINE M_SCROLLBAR "ScrollBars" #DEFINE M_ADDALIAS "" #DEFINE M_TAB "AllowTabs" #DEFINE M_FORMTABS "Tabs" #DEFINE M_FORMPAGES "PageCount" #DEFINE M_INITIALVAL "" #DEFINE M_INITIALNUM "" #DEFINE M_BUTTONS "ButtonCount" #DEFINE M_SPACING "ButtonSpacing" #DEFINE M_CURPOS "" #DEFINE M_READ "WindowType" #DEFINE M_ALIGN "Alignment" #DEFINE M_VALUE "Value" #DEFINE M_INIT "Init" #DEFINE M_SHAPE "Shape" #DEFINE M_CURVE "Curvature" #DEFINE M_FORMAT "Format" #DEFINE M_INPUTMSK "InputMask" #DEFINE M_MAXLEN "MaxLength" #DEFINE M_SPINLO "SpinnerLowValue" #DEFINE M_SPINHI "SpinnerHighValue" #DEFINE M_KEYLO "KeyboardLowValue" #DEFINE M_KEYHI "KeyboardHighValue" #DEFINE M_SPININC "Increment" #DEFINE M_SPECIAL "SpecialEffect" #DEFINE M_ERASEPAGE "ErasePage" #DEFINE M_DRAWFRAME "DrawFrame" #DEFINE M_RELEASEWIND "ReleaseWindows" #DEFINE M_RELEASEERASE "ReleaseErase" #DEFINE M_TERMINATEREAD "TerminateRead" #DEFINE M_STRETCH "Stretch" #DEFINE M_COLORSOURCE "ColorSource" #DEFINE M_MARGIN "Margin" #DEFINE M_READSIZE "ReadSize" && property for listboxes #DEFINE M_TABSTOP "TabStop" && use for SAYs (read-only textboxes) #DEFINE M_SCALEMODE "ScaleMode" #DEFINE M_DISFORECOLOR "DisabledForeColor" #DEFINE M_DISBACKCOLOR "DisabledBackColor" #DEFINE M_ITEMFORECOLOR "ItemForeColor" #DEFINE M_ITEMBACKCOLOR "ItemBackColor" #DEFINE M_DISITEMFORECOLOR "DisabledItemForeColor" #DEFINE M_DISITEMBACKCOLOR "DisabledItemBackColor" #DEFINE M_SELITEMBACKCOLOR "SelectedItemBackColor" #DEFINE M_WORDWRAP "WordWrap" #DEFINE M_DEFAULT "Default" #DEFINE M_CANCEL "Cancel" && new Cancel property #DEFINE M_FORMACTIVATE "Activate" && Form activate #DEFINE M_AUTOACTIVATE "AutoActivate" #DEFINE M_ZOOMBOX "ZoomBox" *- DataNav properties #DEFINE M_AUTOLOADENV "AutoOpenTables" #DEFINE M_AUTOUNLOADENV "AutoCloseTables" #DEFINE M_ALIAS "Alias" #DEFINE M_WORKAREA "WorkArea" #DEFINE M_CURSORSRC "CursorSource" #DEFINE M_SOURCETYPE "SourceType" #DEFINE M_ORDER "Order" #DEFINE M_FILTER "Filter" #DEFINE M_EXCLUSIVE "Exclusive" #DEFINE M_CHILDALIAS "ChildAlias" #DEFINE M_CHILDINDEXTAG "ChildOrder" #DEFINE M_PARENTALIAS "ParentAlias" #DEFINE M_PARENTINDEXEXPR "RelationalExpr" #DEFINE M_RELATIONTYPE "RelationType" #DEFINE M_ONETOMANY "OneToMany" #DEFINE M_INITIALALIAS "InitialSelectedAlias" *- 3.0 Form Controls Classes - don't localize #DEFINE T_FSET "formset" #DEFINE T_FORM "form" #DEFINE T_LABEL "label" #DEFINE T_LINE "line" #DEFINE T_SHAPE "shape" #DEFINE T_LIST "listbox" #DEFINE T_BTN "commandgroup" #DEFINE T_BTNGRP "commandgroup" #DEFINE T_RADIO "optionbutton" #DEFINE T_RADIOGRP "optiongroup" #DEFINE T_CBOX "checkbox" #DEFINE T_SAY "textbox" #DEFINE T_GET "textbox" #DEFINE T_EDIT "editbox" #DEFINE T_POPUP "combobox" #DEFINE T_SPIN "spinner" #DEFINE T_OLE "oleboundcontrol" #DEFINE T_PICT "image" #DEFINE T_INV "commandgroup" #DEFINE T_INVGRP "commandgroup" #DEFINE T_PAGE "pageframe" #DEFINE T_DATANAV "dataenvironment" #DEFINE T_CURSOR "cursor" #DEFINE T_RELATION "relation" #DEFINE T_SUBCLASS "????" *- Misc things #DEFINE C_TRUE .T. && 1=1 #DEFINE C_FALSE .F. && 1=2 #DEFINE C_SCXEXT "SCX" && 2.x screen extension #DEFINE C_SCTEXT "SCT" && 2.x screen memo extension #DEFINE C_SPREXT "SPR" && 2.x screen gen extension #DEFINE C_VCXEXT "VCX" && 3.0 visual class extension #DEFINE C_VCTEXT "VCT" && 3.0 visual class extension #DEFINE C_MACEXT "_MAC" && extension to add for Mac files #DEFINE C_SEP " = " && property separator #DEFINE C_WINFONT "MS SANS SERIF" && FPW default font #DEFINE C_WINFSIZE 8 && FPW default font size #DEFINE C_MAXWINDS 25 #DEFINE C_MAXPLATFORMS 4 #DEFINE C_MAXSCREENS 5 #DEFINE C_20SCXFLDS 57 #DEFINE C_30SCXFLDS 23 #DEFINE C_SCXFLDS 79 #DEFINE C_PJX40FLDS 28 #DEFINE C_PJX30FLDS 26 #DEFINE C_PJX25FLDS 31 #DEFINE C_PJX20FLDS 33 #DEFINE C_FPCFLDS 10 #DEFINE C_20FRXFLDS 36 #DEFINE C_FRXFLDS 74 #DEFINE C_30FRXFLDS 75 #DEFINE C_20LBXFLDS 17 #DEFINE C_30DBCFLDS 8 && field count for DBCs -- need to be recompiled in 5.0 #DEFINE C_FILELEN 30 #DEFINE C_DOS "DOS" #DEFINE C_WINDOWS "WINDOWS" #DEFINE C_MAC "MAC" #DEFINE C_UNIX "UNIX" #DEFINE C_All "ALL" #DEFINE C_DEFSET "Formset" #DEFINE C_PAGEFRAME "PageFrame1" #DEFINE C_DEFPAGE "Page1" #DEFINE C_DEFDATANAV "DataEnvironment" #DEFINE C_DEFCURSOR "Cursor1" #DEFINE C_BACKDIR "OLD" #DEFINE C_FORMCLASS "form" #DEFINE C_THERMCLASS1 "thermometer" && single progress bar #DEFINE C_THERMCLASS2 "therm2" && double progress bar #DEFINE N_THERM2X .80 && portion of second bar devoted to converting project files -- must be < .097 #DEFINE N_THERM3X .90 && portion of second bar devoted to converting project files -- must be < .097 #DEFINE C_SELITEMCOLOR "164,200,240" && color for selected item in list #DEFINE C_DELOAD_METH "Init" && DataEnvironment method where IDX files are opened #DEFINE C_SEPARATOR "*----- " #DEFINE K_TIMEOUT_FACTOR 1000 && VFP seems to measure READTIMEOUT in milliseconds #DEFINE N_BLOCKSZ 0 && block size for newly created scx files #DEFINE N_BUFFSZ 1024 && amount to read at one time from compiled FRX code * Definitions for Objtype fields in screens/reports/labels #DEFINE N_OTHEADER 1 #DEFINE N_MAXTRANFILETYPES 3 && number of file types that transporter can handle (All,PJX, SCX, FRX) #DEFINE N_TRANFILE_PJX 1 #DEFINE N_TRANFILE_SCX 2 #DEFINE N_TRANFILE_FRX 3 #DEFINE C_CURSSOURCTYPE 1 #DEFINE N_PIXELMODE 1 && scalemode type #DEFINE I_DEFCOLORSOURCE 3 && default color source #DEFINE I_WINCPCOLORSOURCE 5 && Windows Control Panel / Window Colors #DEFINE I_DISKFULLERR 56 && disk full error number #DEFINE C_LOGEXT "LOG" && extension for log file #DEFINE C_CONTROLS "CTL" #DEFINE C_DNO "DNO" #DEFINE C_VCX "VCX" #DEFINE N_VCXTYPE 99 #DEFINE C_30VERS "3.0" #DEFINE C_TRANSPORT "transprt" && transport program to use, if _transport is empty && it is passed the following parms: && m.g_scrndbf file to transport (C) && m.tp_filetype file type (N) see transprt.prg for possible values && m.dummy not used && m.gAShowMe 3 X 6 array && m.gOTherm ref to thermometer object && m.cRealName name of file to display in dialogs && m.lPJX called as part of a project? #DEFINE C_DATANAVLOAD "THIS.DataEnvironment.OpenTables" #DEFINE C_SETSKIP "SET SKIP TO " && don;t localize -- for SET SKIP to in DataEnvironment #DEFINE C_SELECT C_SETSKIP_CMMT_LOC + ; "SELECT " && don;t localize -- for SET SKIP to in DataEnvironment #DEFINE C_DATANAVOPEN "PROCEDURE Init" + C_CR #DEFINE C_FRXDEDESTROY C_CR + "PROCEDURE Destroy" + C_CR + ; C_FRXDESTROY_LOC + ; "THIS.OpenTables" + C_CR + ; "THIS.Init" + C_CR #DEFINE C_GOTOVARPRE "_iconv" #DEFINE C_GOTOVAREXT "GoToPlaceHolder" #DEFINE C_GOTO1 C_CR + C_GOTO1_CMMT_LOC + ; [LOCAL aTbl, iLen, i, iRec, cVar, iPrev] + C_CR + ; [iPrev = SELECT()] + C_CR + ; "DIMENSION aTbl[1,2]" + C_CR + ; [iLen = AUSED(aTbl)] + C_CR + ; [FOR i = 1 TO iLen] + C_CR + ; C_TAB + "cVar = '_iconv' + PROPER(aTbl[i,1]) + 'GoToPlaceHolder'" + C_CR +; C_TAB + [IF TYPE(cVar) # 'N'] + C_CR + ; C_TAB + C_TAB + [iRec = -2] + C_CR + ; C_TAB + [ELSE] + C_CR + ; C_TAB + C_TAB + [iRec = EVAL(cVar)] + C_CR + ; C_TAB + [ENDIF] + C_CR + ; C_TAB + "IF USED(aTbl[i,1])" + C_CR + ; C_TAB + C_TAB + "SELECT (aTbl[i,1])" + C_CR + ; C_TAB + C_TAB + [DO CASE] + C_CR + ; C_TAB + C_TAB + C_TAB + [CASE BETWEEN(iRec, 1, RECCOUNT())] + C_CR + ; C_TAB + C_TAB + C_TAB + C_TAB + [GOTO iRec] + C_CR + ; C_TAB + C_TAB + C_TAB + [CASE iRec = 0] + C_CR + ; C_TAB + C_TAB + C_TAB + C_TAB + [GO TOP] + C_CR + ; C_TAB + C_TAB + C_TAB + C_TAB + [SKIP IIF(!BOF(),-1,0)] + C_CR + ; C_TAB + C_TAB + C_TAB + [CASE iRec = -1] + C_CR + ; C_TAB + C_TAB + C_TAB + C_TAB + [GO BOTTOM] + C_CR + ; C_TAB + C_TAB + C_TAB + C_TAB + [SKIP IIF(!EOF(),1,0)] + C_CR + ; C_TAB + C_TAB + C_TAB + [OTHERWISE] + C_CR + ; C_TAB + C_TAB + C_TAB + C_TAB + [GO TOP] + C_CR + ; C_TAB + C_TAB + [ENDCASE] + C_CR + ; C_TAB + [ENDIF] + C_CR + ; [NEXT] + C_CR + ; [IF iPrev > 0] + C_CR + ; C_TAB + [IF USED(iPrev)] + C_CR + ; C_TAB + C_TAB + [SELECT (iPrev)] + C_CR + ; C_TAB + [ENDIF] + C_CR + ; [ENDIF] + C_CR + ; [RELEASE aTbl, iLen, i, iRec, cVar, iPrev] + C_CR #DEFINE C_GOTO2A [IF USED("] #DEFINE C_GOTO2 [")] + C_CR + C_TAB + [SELECT ] #DEFINE C_GOTO3 [ = IIF(BOF(), 0, IIF(EOF(), -1, RECNO()))] + C_CR + ; [ENDIF] + C_CR *- code for setup and cleanup in SCX files #DEFINE C_SETUP_CODE C_SETUP_CMMT_LOC + ; [PRIVATE m.compstat, m.currarea, m.rborder, m.talkstat] + C_CRLF + ; [IF SET("TALK") = "ON"] + C_CRLF + ; C_TAB + [SET TALK OFF] + C_CRLF + ; C_TAB + [m.talkstat = "ON"] + C_CRLF + ; [ELSE] + C_CRLF + ; C_TAB + [m.talkstat = "OFF"] + C_CRLF + ; [ENDIF] + C_CRLF + ; [m.compstat = SET("COMPATIBLE")] + C_CRLF + ; [SET COMPATIBLE FOXPLUS] + C_CRLF + ; C_CRLF + ; [m.rborder = SET("READBORDER")] + C_CRLF + ; [SET READBORDER ON] + C_CRLF + ; C_CRLF + ; [m.currarea = SELECT()] + C_CRLF + ; C_CRLF #DEFINE C_CLEANUP_CODE C_CLEANUP_CMMT_LOC + ; [IF TYPE("rborder") == 'C'] + C_CRLF + ; C_TAB + [SET READBORDER &rborder] + C_CRLF + ; [ENDIF] + C_CRLF + ; C_CRLF + ; [IF TYPE("talkstat") == 'C'] + C_CRLF + ; C_TAB + [IF m.talkstat = "ON"] + C_CRLF + ; C_TAB + C_TAB + [SET TALK ON] + C_CRLF + ; C_TAB + [ENDIF] + C_CRLF + ; [ENDIF] + C_CRLF + ; C_CRLF + ; [IF TYPE("compstat") == 'C'] + C_CRLF + ; C_TAB + [IF m.compstat = "ON"] + C_CRLF + ; C_TAB + C_TAB + [SET COMPATIBLE ON] + C_CRLF + ; C_TAB + [ENDIF] + C_CRLF + ; [ENDIF] + C_CRLF + C_CRLF #DEFINE C_SCXBACKEXT "S2X" #DEFINE C_SCTBACKEXT "S2T" #DEFINE C_FPCBACKEXT "C2C" #DEFINE C_FCTBACKEXT "C2T" #DEFINE C_FRXBACKEXT "F2X" #DEFINE C_FRTBACKEXT "F2T" #DEFINE C_LBXBACKEXT "L2X" #DEFINE C_LBTBACKEXT "L2T" #DEFINE C_VCXBACKEXT "V3X" #DEFINE C_VCTBACKEXT "V3T" #DEFINE N_3D 0 #DEFINE N_PLAIN 1 #DEFINE C_OPAQUE 1 #DEFINE N_TRANSPARENT 0 #DEFINE L_CONVERT .T. #DEFINE L_NOCONVERT .F. #DEFINE C_IDBYTE30 CHR(48) #DEFINE DT_DFLTTIME "01/01/95 12:00" *- Project types that need to be converted #DEFINE C_SCREENSET "s" #DEFINE C_SCREEN "S" #DEFINE C_MENU "M" #DEFINE C_QUERY "Q" #DEFINE C_REPORT "R" #DEFINE C_LABEL "B" #DEFINE C_FORMAT "F" #DEFINE C_HEADER "H" *- other (may be 3.0) project types #DEFINE C_SCXTYPE "K" #DEFINE C_VCXTYPE "V" #DEFINE C_PRGTYPE "P" #DEFINE C_DBCTYPE "d" && 3.0 database *- catalog manager file types #DEFINE C_FPCCATTYPE "fpc" #DEFINE C_FPCSCREENTYPE "scx" #DEFINE C_FPCLABELTYPE "lbx" #DEFINE C_FPCCSQUERYTYPE "csq" #DEFINE C_FPCUPQUERYTYPE "fpq" #DEFINE C_FPCSQLQUERYTYPE "qpr" #DEFINE C_FPCREPORTTYPE "frx" #DEFINE C_FPCDBFTYPE "dbf" #DEFINE C_FPCAPPTYPE "app" #DEFINE C_FPCPRGTYPE "prg" #DEFINE C_DB4CATTYPE "cat" #DEFINE C_DB4SCREENTYPE "scr" #DEFINE C_DB4LABELTYPE "lbl" #DEFINE C_DB4UPQUERYTYPE "upd" #DEFINE C_DB4SQLQUERYTYPE "qbe" #DEFINE C_DB4REPORTTYPE "frm" #DEFINE C_DB4DBFTYPE "dbf" *- DBase IV values #DEFINE dbiv_lbl_type 11 #DEFINE dbiv_scr_type 18 #DEFINE dbiv_frm_type 7 *- FRX ObjType values for new DataEnvironment objects #DEFINE N_FRX_DATAENV 25 #DEFINE N_FRX_CURSOR 26 #DEFINE N_FRX_RELATION 26 *- these codes replicate FOXPRO.H #DEFINEs *-- MessageBox parameters #DEFINE MB_OK 0 && OK button only #DEFINE MB_OKCANCEL 1 && OK and Cancel buttons #DEFINE MB_ABORTRETRYIGNORE 2 && Abort, Retry, and Ignore buttons #DEFINE MB_YESNOCANCEL 3 && Yes, No, and Cancel buttons #DEFINE MB_YESNO 4 && Yes and No buttons #DEFINE MB_RETRYCANCEL 5 && Retry and Cancel buttons *-- MsgBox return values #DEFINE IDOK 1 && OK button pressed #DEFINE IDCANCEL 2 && Cancel button pressed #DEFINE IDABORT 3 && Abort button pressed #DEFINE IDRETRY 4 && Retry button pressed #DEFINE IDIGNORE 5 && Ignore button pressed #DEFINE IDYES 6 && Yes button pressed #DEFINE IDNO 7 && No button pressed *-- Low Level File Constants #DEFINE F_READONLY 0 #DEFINE F_WRITEONLY 1 #DEFINE F_READWRITE 2 #DEFINE F_READONLY_UNBUFF 10 #DEFINE F_WRITEONLY_UNBUFF 11 #DEFINE F_READWRITE_UNBUFF 12 *- end of CONVERT.H*- cvtalert.h *- #INCLUDE file for cvtalert.vcx *- (c) Microsoft Corporation 1995 #DEFINE C_SELBACKDIR_LOC "Directorio de seguridad:" #DEFINE C_SELLOGFILE_LOC "Nombre del archivo de registro:" #DEFINE C_SELECT_LOC "Seleccionar" #DEFINE C_SELCODEFILE_LOC "Archivo de c digo:" #DEFINE C_CONVERTBOTH_LOC "\<Convertir registros de formularios de Macintosh y Windows" #DEFINE C_RETAIN30_LOC "\<Mantener los valores de las propiedades predeterminadas de FoxPro3.0" #DEFINE C_CONVERTSCX_LOC "Archivos \<SCX" #DEFINE C_CONVERTVCX_LOC "Archivos \<VCX" #DEFINE C_RECURSEDIR_LOC "\<Comprobar subdirectorios" #DEFINE C_SELSCXFILE_LOC "Seleccione el archivo que desea actualizar:" #DEFINE C_SELSCXDIR_LOC "Seleccione el directorio:" #DEFINE E_BADFNAME_LOC "El nombre para el archivo de c digo no es v lido." #DEFINE E_BADBACKDIR_LOC "El directorio de copia de seguridad no es v lido." #DEFINE E_BADLOGNAME_LOC "El nombre para el archivo de registro no es v lido." #DEFINE C_BACKDIR "OLD" #DEFINE C_LOGEXT "LOG" #DEFINE N_STDMODE 1 #DEFINE N_DEVMODE 2 #DEFINE C_SCREENTYPEPARM "SCREEN" #DEFINE C_PROJECTTYPEPARM "PROJECT" #DEFINE C_CATALOGTYPEPARM "CATALOG" #DEFINE C_REPORTTYPEPARM "REPORT" #DEFINE C_MENUTYPEPARM "MENU" #DEFINE C_LABELTYPEPARM "LABEL" #DEFINE C_DB4QUERYTYPEPARM "DB4QUERY" #DEFINE C_DB4FORMTYPEPARM "DB4FORM" #DEFINE C_DB4REPORTTYPEPARM "DB4REPORT" #DEFINE C_DB4LABELTYPEPARM "DB4LABEL" #DEFINE C_DB4VERSIONPARM "DBASE" #DEFINE C_FOXVERSIONPARM "FOX" #DEFINE C_FMTTYPEPARM "FORMAT" #DEFINE C_FPLUSFRXTYPEPARM "FB+FRX" *- FOREIGN.H *- Header file for Foreign.PRG *- (c) Microsoft Corporation 1995 #DEFINE E_OPEN_LOC "Error @1 al abrir " #DEFINE E_COPY_LOC "Ocurri el error @1 al intentar copiar el cat logo a " #DEFINE E_CREATE_LOC "Error @1 al crear " #DEFINE E_NAMEPROB_LOC "Debido a un conflicto de nombres, el nombre del archivo de cat logo se ha cambiado a " #DEFINE E_NOFIND_LOC "No se puede encontrar el archivo migrado @1." #DEFINE C_CAT2FPC_LOC "Cambiando la estructura del cat logo..." #DEFINE C_CONFIRM1_LOC "Debe convertir su &wzsString antes de poder modificarlo en FoxPro. El @1 original permanecer sin cambios. Desea continuar con la conversi #DEFINE C_SAVETO_LOC "Guardar @1 como:" #DEFINE C_DBASEEOF CHR(26) && code DBase use to mark EOF in .QBE file*- migdb4.h #DEFINE lbl_type 11 #DEFINE scr_type 18 #DEFINE frm_type 7 #DEFINE C_ERRDB3FILE 105 && Not a dBASE IV file. FoxPro converts dBASE III FRMs and LBLs natively. #DEFINE C_ERRBADDB4 106 && Not a DBASE IV file (the file has the wrong header for dBASE IV). #DEFINE C_ERRFTYPE_LOC "El tipo de ID de archivo es incorrecto para un archivo .SCR o .LBL de dBASE IV." #DEFINE C_ERRNOFMT_LOC "Imposible encontrar el archivo con formato dBASE III (.FMT)." * Define Global Constants #DEFINE debugversion .T. && enables asserts. Should usually be .T. *- used in Windows VFP 3.0 conversion dialog #DEFINE C_MSGBOXTITLE_LOC "Converter" #DEFINE C_ASK1_LOC "Preguntar para cada archivo;No preguntar para" && nuevo bot n de opci n para impedir mostrar el cuadro de di logo durante la conversi #DEFINE C_ASK2_LOC " los archivos;No preguntar para ning n archivo" && nuevo bot n de opci n para impedir mostrar el cuadro de di logo durante la conversi #DEFINE C_OVERWRITE1_LOC "Transportar todos los objetos sobrescribir todas las " * Filetype constants for FoxPro 2.0 and FoxPro 2.5/2.6 formats #DEFINE C_OVERWRITE2_LOC " definiciones de objeto existentes en el archivo." #DEFINE MB_OKCANCEL 1 && OK and Cancel buttons #DEFINE IDCANCEL 2 && Cancel button pressed * Filetype constants for FoxPro 2.0 and FoxPro 2.5/2.6 formats #DEFINE c_20pjxtype 1 #DEFINE c_25scxtype 12 #DEFINE c_20scxtype 2 #DEFINE c_25frxtype 13 #DEFINE c_20frxtype 3 #DEFINE c_25lbxtype 14 #DEFINE c_20lbxtype 4 *- indexes into gAShowMe array, controls display of transporter dialog for various file types #DEFINE N_MAXTRANFILETYPES 3 && number of file types that transporter can handle (All,PJX, SCX, FRX) #DEFINE N_TRANFILE_PJX 1 #DEFINE N_TRANFILE_SCX 2 #DEFINE N_TRANFILE_FRX 3 * FoxPro 1.02 and FoxBASE+ formats. Note that the FoxBASE+ types are never * actually passed in m.tp_filetype. They are inferred in GetOldReportType and * GetOldLabelTypefrom the ID byte in the report/label files. The suffix tells * us how the file was called, by REPORT FORM ... or by MODIFY REPORT ... #DEFINE c_frx102repo 23 #DEFINE c_frx102modi 33 #DEFINE c_fbprptrepo 43 #DEFINE c_fbprptmodi 53 #DEFINE c_lbx102repo 24 #DEFINE c_lbx102modi 34 #DEFINE c_fbplblrepo 44 #DEFINE c_fbplblmodi 54 #DEFINE c_db4type 70 * Definitions for Objtype fields in screens/reports/labels #DEFINE c_otheader 1 #DEFINE c_otworkar 2 #DEFINE c_otindex 3 #DEFINE c_otrel 4 #DEFINE c_ottext 5 #DEFINE c_otline 6 #DEFINE c_otbox 7 #DEFINE c_otrepfld 8 #DEFINE c_otband 9 #DEFINE c_otgroup 10 #DEFINE c_otlist 11 #DEFINE c_ottxtbut 12 #DEFINE c_otradbut 13 #DEFINE c_otchkbox 14 #DEFINE c_otfield 15 #DEFINE c_otpopup 16 #DEFINE c_otpicture 17 #DEFINE c_otrepvar 18 #DEFINE c_ot20lbxobj 19 #DEFINE c_otinvbut 20 #DEFINE c_otpdset 21 #DEFINE c_otspinner 22 #DEFINE c_otfontdata 23 #DEFINE C_OBJTYPELIST c_otlist,c_ottxtbut,c_otbox,c_otradbut,c_otchkbox,c_otfield, c_otpopup,c_otinvbut,c_otspinner,c_otpicture,c_otline,c_otrepfld,c_otrepvar,c_ottext * Window types #DEFINE c_user 1 #DEFINE c_system 2 #DEFINE c_dialog 3 #DEFINE c_alert 4 * ObjCode definitions #DEFINE c_sgsay 0 #DEFINE c_sgget 1 #DEFINE c_sgedit 2 #DEFINE c_sgfrom 3 #DEFINE c_sgbox 4 #DEFINE c_sgboxd 5 #DEFINE c_sgboxp 6 #DEFINE c_sgboxc 7 #DEFINE c_lnvertical 0 #DEFINE c_lnhorizontal 1 #DEFINE c_ocboxgrp 1 * Attempt to preserve colors of text, lines and boxes when transporting to DOS? #DEFINE c_maptextcolor .T. * Field counts #DEFINE c_20scxfld 57 #DEFINE c_scxfld 79 #DEFINE c_20frxfld 36 #DEFINE c_frxfld 74 #DEFINE c_frx30fld 75 && field count for 3.0 FRX file (11/1/95 jd) #DEFINE c_ot20label 30 #DEFINE c_20lbxfld 17 #DEFINE c_20pjxfld 33 #DEFINE c_pjxfld 31 * Strings for product names #DEFINE c_foxwin_loc "FoxPro para Windows" #DEFINE c_foxmac_loc "FoxPro para Macintosh" #DEFINE c_foxdos_loc "FoxPro para MS-DOS/UNIX" #DEFINE c_winname "WINDOWS" #DEFINE c_macname "MAC" #DEFINE c_dosname "DOS" #DEFINE c_unixname "DOS" #DEFINE c_dosnum 1 #DEFINE c_winnum 2 #DEFINE c_macnum 3 #DEFINE c_unixnum 4 * Metrics for various objects, report bands, etc. #DEFINE c_radhght 1.308 #DEFINE c_chkhght 1.308 #DEFINE c_listht 1.000 #DEFINE c_adjfld 0.125 #DEFINE c_adjlist 0.125 #DEFINE c_adjtbtn 0.769 #DEFINE c_adjrbtn 0.308 #DEFINE c_vchkbox 0.154 #DEFINE c_vradbtn 0.154 #DEFINE c_vlist 0.500 #DEFINE c_hpopup 1.000 #DEFINE c_adjbox 0.500 #DEFINE c_chkpixel 12 #DEFINE c_charrptheight 66 #DEFINE c_charrptwidth 80 #DEFINE c_linesperinch (66/11) #DEFINE c_charsperinch 13.71 #DEFINE c_pathsep ":" && path separator character #DEFINE c_mapfonts 3 && number of specially mapped fonts * Version codes, put into Objcode fields in the header record #DEFINE c_25scx 63 #DEFINE c_25frx 53 * Major file types #DEFINE c_report 0 #DEFINE c_screen 1 #DEFINE c_label 2 #DEFINE c_project 3 * Error codes #DEFINE c_error1 "Minor" #DEFINE c_error2 "Serious" #DEFINE c_error3 "Fatal" * Return values #DEFINE c_yes 1 #DEFINE c_no 0 #DEFINE c_cancel -1 * Codepage translation. #DEFINE c_cptrans .T. && do special CP translation for FoxBASE+ and FoxPro 1.02? * The following four contants may need to be localized. #DEFINE c_doscp 437 && default DOS code page #DEFINE c_wincp 1252 && default Windows code page #DEFINE c_maccp 10000 #DEFINE c_unixcp 0 * bands[] array indexes #DEFINE c_tobandvpos 1 #DEFINE c_tobandheight 2 #DEFINE c_fmbandvpos 3 #DEFINE c_fmbandheight 4 * Frequently used strings. Make them #DEFINES to simplify localization. #DEFINE c_converting "Converting" #DEFINE c_transporting "Transporting" #DEFINE C_2DCONTROLS_LOC "Controles 2D" * Defines used in converting FoxBASE+ reports #DEFINE maxliterals 55 #DEFINE litpoolsize 1452 #DEFINE maxrepflds 24 #DEFINE h_page 1 #DEFINE h_break 3 #DEFINE l_item 4 #DEFINE f_break 5 #DEFINE f_page 7 #DEFINE f_rpt 8 #define c_space 40 #DEFINE dos_code 1 #DEFINE win_code 2 #DEFINE mac_code 3 #DEFINE unix_code 4 #DEFINE c_2dmark '2' #DEFINE c_3dmark '3' ** New (8/22/95) added for Localization #DEFINE T_TITLE_LOC "Transportador de Visual FoxPro" #DEFINE T_CONVASIS_LOC "Convertir como est #DEFINE T_NOCONV_LOC "Si no se transporta el archivo, no se convertir #DEFINE T_NOTRANSPORT_LOC "No transportar" #DEFINE T_RECMOD_LOC " Objetos modificados m s recientemente" #DEFINE T_NEWMOD_LOC "Los objetos son nuevos para Windows o se han modificado m s recientemente que sus equivalentes de Windows." #DEFINE T_NEWMOD1_LOC "Los objetos son nuevos para " #DEFINE T_NEWMOD2_LOC ", o se "+CHR(13)+"han modificado m s recientemente que sus " #DEFINE T_NEWMOD3_LOC "equivalentes " #DEFINE T_BYTRANS1_LOC "Si transporta este archivo crear #DEFINE T_BYTRANS2_LOC " definiciones para estos objetos. " #DEFINE T_BYTRANS3_LOC "Si transporta este archivo agregar , actualizar o " + CHR(13) + "reemplazar #DEFINE T_BYTRANS4_LOC " definiciones para los objetos del archivo." #DEFINE T_BYTRANS5_LOC "Si transporta este archivo agregar #DEFINE T_BYTRANS6_LOC "actualizar o reemplazar definiciones de MS-DOS" #DEFINE T_ADDUPDREPL_LOC "Si transporta este archivo agregar , actualizar o reemplazar las definiciones de Windows para los objetos del archivo." #DEFINE T_UPDMSDOSDEF_LOC "Si transporta este archivo agregar , actualizar o reemplazar las definiciones de MS-DOS" #DEFINE T_MSDOSDEF_LOC "Si transporta este archivo crear definiciones de MS-DOS para estos objetos." #DEFINE T_OTHERPLAT_LOC "En este archivo hay objetos definidos para "+CHR(13)+"otra plataforma distinta de " #DEFINE T_OTHERPLAT2_LOC "En este archivo hay objetos definidos" #DEFINE T_OTHERPLAT3_LOC "para otra plataforma distinta de MS-DOS." #DEFINE T_NODOSDEF_LOC "En este archivo hay objetos definidos para otra plataforma distinta de MS-DOS." #DEFINE T_OPENASIS_LOC "Abrir tal y como est #DEFINE T_NEWDOSOBJ_LOC "Transportar los objetos nuevos a MS-DOS" #DEFINE T_TRANSOBJ_LOC "Transportar objetos desde:" #DEFINE T_REPLOBJ_LOC "Todos los objetos -- Reemplazar las definiciones existentes." #DEFINE T_REPORT_FILE_LOC "Archivo de informe:" #DEFINE T_LABEL_FILE_LOC "Archivo de etiqueta:" #DEFINE T_SCREEN_FILE_LOC "Archivo de pantalla:" #DEFINE T_SPIN_LOC "Control num rico" #DEFINE T_SEXPR_LOC "SAY Expresi #DEFINE T_GFIELD_LOC "GET Campo" #DEFINE T_FIELD_LOC "Campo" #DEFINE T_POPUP_LOC "Emergente" #DEFINE T_PICTURE_LOC "Imagen" #DEFINE T_RPTVAR_LOC "Variable de informe" #DEFINE T_INVBTN_LOC "Bot n Inv" #DEFINE T_PDRIVER_LOC "Controlador de impresora" #DEFINE T_FONTDATA_LOC "Datos de fuente" #DEFINE T_UNKNOWNVERS_LOC "Versi n de FoxPro desconocida." #DEFINE T_ENERGIZE_LOC "Energize" #DEFINE T_SELTRANS_LOC "Seleccione el archivo que desea transportar" #DEFINE T_TRANSPORT_LOC "Transportar" #DEFINE T_TRANSPERR_LOC "Error del transportador" #DEFINE T_LINENO_LOC "N mero de l nea: " #DEFINE T_CLEANUP_LOC "Presione cualquier tecla para limpiar y salir..." #DEFINE T_OBJNEWMOD_LOC "Estos objetos son nuevos para la plataforma Windows o se han modificado m s recientemente" #DEFINE T_OBJMOD_LOC "Estos objetos se han modificado m s recientemente en " #DEFINE T_OBJNEW1_LOC "Estos objetos son nuevos para " #DEFINE T_OBJNEW2_LOC " plataforma o se han modificado m s recientemente en " #DEFINE T_UNCHECK1_LOC "Desactivar cualquier elemento que" #DEFINE T_UNCHECK2_LOC "no" #DEFINE T_UNCHECK3_LOC "desee transportar." #DEFINE T_EXPPROMPT_LOC "Expresi n/Petici #DEFINE T_TYPE_LOC "Tipo" #DEFINE T_VARIABLE_LOC "Variable" #DEFINE T_STAT_LOC "Estat" #DEFINE T_FONT_LOC "Fuente" #DEFINE T_FONT1_LOC "Fuente..." #DEFINE T_OK_LOC "Aceptar" #DEFINE T_CANCEL_LOC "Cancelar" #DEFINE T_TRANSOPEN_LOC "\!Transportar y abrir;Abrir tal y como est ;\?Cancelar" #DEFINE T_TRANSOPEN1_LOC "\!Transportar y abrir;\?Cancelar" #DEFINE T_TRANSOPEN2_LOC "Transportar y abrir" #DEFINE T_NOSTAND_LOC "El Transportador no se puede ejecutar como un programa aut nomo." #DEFINE T_INVALIDSCR_LOC "El nombre de pantalla/informe no es v lido." #DEFINE T_WHEREIS_LOC "D nde est #DEFINE T_CONVFRX_LOC "Debe convertir este archivo a un archivo .FRX antes de que"+CHR(13)+"pueda usarlo. Use el Administrador de cat logos para abrir el archivo"+CHR(13)+ "o elija Convertir archivos dBASE en el men Ejecutar." #DEFINE T_UNKNOWNFRX_LOC "Formato de informe desconocido" #DEFINE T_TRANSNOTHING_LOC "El transportador no tiene nada que hacer." #DEFINE T_INVFILEFORMAT_LOC "El formato de archivo es desconocido o no es v lido" #DEFINE T_NORECS_LOC "No hay registros para transportar" #DEFINE T_COMVPRMPT1_LOC " Desea convertir el archivo de informe de la versi n 1.02 al formato 2.6?" #DEFINE T_COMVPRMPT2_LOC " Desea convertir el archivo de informe FoxBASE+/dBASE III al formato de FoxPro 2.6?" #DEFINE T_COMVPRMPT3_LOC " Desea convertir el archivo de etiqueta de la versi n 1.02 al formato 2.6?" #DEFINE T_COMVPRMPT4_LOC " Desea convertir el archivo de etiqueta FoxBASE+/dBASE III al formato de FoxPro 2.6?" #DEFINE T_COMVPRMPT5_LOC " Desea convertir el archivo de pantalla de la versi n 2.0 al formato 2.6?" #DEFINE T_COMVPRMPT6_LOC " Desea convertir el archivo de informe de la versi n 2.0 al formato 2.6?" #DEFINE T_COMVPRMPT7_LOC " Desea convertir el archivo de proyecto de la versi n 2.0 al formato 2.6?" #DEFINE T_UNKOPERATION_LOC "Operaci n de actualizaci n desconocida" #DEFINE T_UNKFOXVER_LOC "Versi n desconocida de FoxPro." #DEFINE T_SAMELINE_LOC "Las plataformas de origen y de destino son las mismas " #DEFINE T_NOOPENREPT_LOC "No se pudo abrir el formulario de informe FoxBASE+ " #DEFINE T_TOTAL1_LOC "*** Total ***" #DEFINE T_YESNO_LOC "\<S ;\!\?\<No" #DEFINE T_THAN_LOC "Que " #DEFINE T_EQIVOBJS_LOC " Objetos equivalentes" #DEFINE T_OBJSNEWTO_LOC "Objetos nuevos para " #DEFINE T_OBJINFILE_LOC "para los objetos del archivo." #DEFINE T_THERMSCR_LOC " pantalla: " #DEFINE T_THERMRPT_LOC " informe: " #DEFINE T_THERMLBL_LOC " etiqueta: " #DEFINE T_ASSERTFAIL_LOC "Fall la aserci #DEFINE T_THANMAC_LOC "Que objetos equivalentes de Macintosh"convert.prg c:\windows\temp\ convert.fxp ..\..\vfp\tools\convert\generic.prg generic.fxp ..\..\vfp\tools\convert\foreign.prg foreign.fxp ..\..\vfp\tools\convert\conprocs.prg conprocs.fxp ..\..\vfp\tools\convert\transprt.prg transprt.fxp sprtherm.vcx sprtherm.vct ..\..\vfp\tools\convert\migdb4.prg migdb4.fxp mignavpr.txt cvtalert.vcx cvtalert.vct convert.h cvtalert.h foreign.h migdb4.h transprt.h